| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Dll в EXE. модули windows, messages //маленький размер [D7, WinXP]

FFx01 ©   (2006-07-23 11:33:00) 

Уважаемые, у меня вопрос, возможно ли в дельфи встоить длл(15 кб) в ехе и потом ее распаковать. Используя только модули windows, messages.(так как важно написать маленький по размеру проект)

Или как можно распаковать {$R *.res} без использования SysUtils, так как в дельфи 7 модуль слишком громоздкий.

Ведь как-то возможно создать, что-то типо stream массива и записать туда еще в исходнике.

Или если можно "Как создать в EXE Ресурс" http://forum.sources.ru/index.php?showtopic=148176
расскажите как этот модуль использовать для таких целей.

Была даже мысль через base64 делать :D

---

FFx01   (2006-07-23 15:48:00) [1]

DTStamp, респектище..

тема закрыта.

---

DTStamp   (2006-07-23 13:27:00) [2]

Да, FileExists можно заменить на

var
 FileAttr: DWORD;
...
...
FileAttr := GetFileAttributes(PChar(FileName));
Result := Assigned(PRes) and (FileAttr <> DWORD(-1));

---

DTStamp   (2006-07-23 13:20:00) [3]


function ExtractResource(const ResName, FileName: String): Boolean;
var
 hFile: THandle;
 hResInfo, hResData: THandle;
 ResSize, nBW: Cardinal;
 PRes: Pointer;

begin
 Result := False;
 hResInfo := FindResource(hInstance,PChar(ResName),RT_RCDATA);
 if hResInfo = 0 then
   Exit;
 ResSize := SizeOfResource(hInstance,hResInfo);
 hResData := LoadResource(hInstance,hResInfo);
 PRes := LockResource(hResData);
 hFile := CreateFile(PChar(FileName),GENERIC_WRITE,0,nil,CREATE_NEW,0,0);
 if hFile <> INVALID_HANDLE_VALUE then
 begin
   WriteFile(hFile,PRes^,ResSize,nBW,nil);
   CloseHandle(hFile);
 end;
 Result := Assigned(PRes) and (FileExists(FileName));
end;


---

Fay   (2006-07-23 13:09:00) [4]

'resname.res', 'g7dll.dll'
Чё это?

---

FFx01   (2006-07-23 12:59:00) [5]

var
 FindHandle, ResHandle: THandle;
 ResPtr: Pointer;
begin
 FindHandle := FindResource(HInstance, 'resname.res', 'g7dll.dll');
 if FindHandle <> 0 then
 begin
   ResHandle := LoadResource(HInstance, FindHandle);
   if ResHandle <> 0 then
   begin
     ResPtr := LockResource(ResHandle);
     if ResPtr <> nil then
     
     UnlockResource(ResHandle);
   end;
   FreeResource(FindHandle);
 end;
end;

попытался написать так, но как сохранить длл рядом с ехе.

---

Ketmar   (2006-07-23 12:33:00) [6]

FindResource()/SizeofResource()/LoadResource()

---

Наверх