[volod3000]

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

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

Делаю так :

Код:

{$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;