VPF::заташить dll в ресурсы - Форум программистов

MaGICaN

Дата 11.8.2007, 17:18 (ссылка)

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

Загрузка ...

Новичок

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

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

что писать в файле .rc чтобы засунуть dll в ресурсы&
спасибо.

aktuba

Дата 11.8.2007, 21:17 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Код


MyDLL RCDATA c:\mydll.dll

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

MaGICaN

Дата 12.8.2007, 01:17 (ссылка)

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

Загрузка ...

Новичок

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

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

чет неработает.

Подсажите я прально делаю?

1 записываю текст в блокнот.

Код


MyDLL RCDATA c:\mydll.dll

2. компилирую и сохраняю его в папку с проектом
3. записываю в программу {$R resourse.RES}
4. код извлечения ресурса

Код


function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var
  Res: TResourceStream;
begin
  Result := False;
  Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType));
  try
    Res.SavetoFile(ResNewName);
    Result := True;
  finally
    Res.Free;
  end;
end;

5. вызываю ф-цию извлечения ресурса

Код


ExtractRes('RCDATA', 'MyDLL.dll', 'c:\mydll.dll');

Скажите что нетак.

Это сообщение отредактировал(а) MaGICaN - 12.8.2007, 01:19

aktuba

Дата 12.8.2007, 02:33 (ссылка)

(голосов:2)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Код


    
ExtractRes('RCDATA', 'MyDLL', 'c:\mydll.dll');

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

MaGICaN

Дата 12.8.2007, 14:40 (ссылка)

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

Загрузка ...

Новичок

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

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

опять нерботает.

может дело в том что я компилирую файл(.rc) прогой Resource Builder?

aktuba

Дата 12.8.2007, 15:30 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Попробуй так:

Код


  Res := TResourceStream.Create(HInstance, 'MyDLL', RT_RCDATA);
    try
      lResStream.SaveToFile('c:\mydll.dll');
    finally
      lResStream.Free;
    end;

У меня точно работает.

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

EvilsInterrupt

Дата 13.8.2007, 09:18 (ссылка)

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

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

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

Я бы посоветовал создать простой массив типа байт и просто его ф-цией WriteFile(hFileDll,@DllArray,SizeOf(DllArray),.... Будет довольно быстро. А почему не в ресурсы? Потому что у ресурсов другая цель!

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

про реверсинг, вроде чтото даже интересно

aktuba

Дата 13.8.2007, 09:35 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата

А почему не в ресурсы? Потому что у ресурсов другая цель!

А откуда ты знаешь его цель? smile

Мне например самому не раз так требовалось, чтобы в программе, в ресурсах находилась dll и/или другая программа. Иногда полезно...

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

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