VPF::dll в виде массива - Форум программистов

MaGICaN

Дата 10.8.2007, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 20.7.2007

Репутация: нет
Всего: нет

ну я бы несказал что клав шпион, яскажу просто кейлогер, создаю его для того чтобы за девушкой проследить неболее, такчто ненадо считать меня злым гением или доктором зло, я простой романтик который совсем неверит девушкам.

я нашел ответ на свой вопрос

для создать файл ресурсов так.

Код


procedure CreateResourceFile(
  DataFile, ResFile: string; // имена файлов
  ResID: Integer // id ресурсов
  );
var
  FS, RS: TFileStream;
  FileHeader, ResHeader: TResHeader;
  Padding: array [0..SizeOf(DWORD)-1] of Byte;
begin

  { Open input file and create resource file }
  FS := TFileStream.Create( 
  DataFile, fmOpenRead);
  RS := TFileStream.Create( 
  ResFile, fmCreate);
  HeaderSize, ResType и ResID }
  FillChar(FileHeader, SizeOf(FileHeader), #0);
  FileHeader.HeaderSize := SizeOf(FileHeader);
  FileHeader.ResId := $0000FFFF;
  FileHeader.ResType := $0000FFFF;
  FillChar(ResHeader, SizeOf(ResHeader), #0);
  ResHeader.HeaderSize := SizeOf(ResHeader);
  ResHeader.ResId := $0000FFFF or (ResId shl 16);
  ResHeader.ResType := $0000FFFF
  or (WORD(RT_RCDATA) shl 16);
  ResHeader.DataSize := FS.Size;
  // Устанавливаем необходимые флаги памяти
  ResHeader.MemoryFlags := $0030;
  RS.WriteBuffer(FileHeader, sizeof(FileHeader));
  RS.WriteBuffer(ResHeader, sizeof(ResHeader));
  RS.CopyFrom(FS, FS.Size);

  { Pad data out to DWORD boundary - any old
  rubbish will do!}
  if FS.Size mod SizeOf(DWORD) <> 0 then
    RS.WriteBuffer(Padding, SizeOf(DWORD) -
    FS.Size mod SizeOf(DWORD));
  FS.Free; 
  RS.Free;
end;

потом дерагать из проги вот так

Код


procedure ExtractToFile(Instance:THandle; ResID:Integer; ResType, 
FileName:string);
var
  ResStream: TResourceStream;
  FileStream: TFileStream;
begin
  try
    ResStream := TResourceStream.CreateFromID(Instance, ResID, 
    pChar(ResType));
    try
      //if FileExists(FileName) then
      //DeleteFile(pChar(FileName));
      FileStream := TFileStream.Create(FileName, fmCreate);
      try
        FileStream.CopyFrom(ResStream, 0);
      finally
        FileStream.Free;
      end;
    finally
      ResStream.Free;
    end;
  except
    on E:Exception do
    begin
      DeleteFile(FileName);
      raise;
    end;
  end;
end;

всем спасибо за помощь
2 Yanis огромное спасибо за сарказм =)

Это сообщение отредактировал(а) MaGICaN - 10.8.2007, 05:28

W4FhLF

Дата 10.8.2007, 06:05 (ссылка)

(голосов:1)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Цитата(MaGICaN @ 10.8.2007, 01:20

)

такчто ненадо считать меня злым гением или доктором зло

Да ладно, ты себе льстишь smile

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

MaGICaN

Дата 11.8.2007, 02:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 20.7.2007

Репутация: нет
Всего: нет

я только учусь =)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »