[volod3000]

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

Почему ни чего не происходит .

Делаю так :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

{$R dll.RES}       //=================  Редактор ресурсов   procedure ExtractRes(ResType, ResName, ResNewName : String); var Res : TResourceStream; begin   Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));   Res.SavetoFile(ResNewName);   FreeAndNil(Res);   FreeMemory(Res); end;   begin        CreateDir('C:\ProgramData\dll');      ExtractRes('RES', 'ba', 'C:\ProgramData\dll\my.dll');      Sleep(1000);        Application.Initialize;      Application.MainFormOnTaskbar := True;      Application.CreateForm(TForm1, Form1);      Application.Run;   end;