Извлечение файла до момента создания формы

[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;

[Пепел Феникса]

показывайте res файл ваш.

[volod3000]

в файле my.rc пишу ba RES "my.dll" дальше c помощью brcc32.exe cоздаю dll.RES.
Проблема в том , что и папка не создается (CreateDir('C:\ProgramData\dll')

[Пепел Феникса]

семерка?
доступ то есть?(права админа)

[volod3000]

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

[xwicked]

Давно не кодил в Delphi, а нельзя ли поставить какое-нибудь условие, на вот это дело?

Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;

[volod3000]

Немного разобрался DLL-и, никогда с ними не работал.
Решил к проекту подключать Dll динамически , но опять
возникли проблемы, вроде все делаю, как в "учебнике",
а работать всё равно не желает.

Посмотрите мой (переделанный bass.pas) маленький модуль, где ошибка.

[Человек_Борща]

Ничего себе маленький! 36 кб!
в mybas.pas проблем не должно быть вовсе.


У вас много проблем:
1. Неправильно храните dll в ресурсах. Нужен тип EXEFILE а не RCDATA. При RCDATA, EXE и DLL хранятся по другому, а после распаковки винды их уже не распознают.
2. Вообще не правильно грузите DLL из ресурсов! Ну ктож так с ресурсами-то, возится?

Вот штампанул вам пример, как правильно это делать.

Саму dll зыркаем в TestDLL.dpr
Динам. вызов из dll в MainFormUnit.pas
Выгрузка из ресурсов палится в dpr.

А для начала, можно запустить Loader.exe, и посмотреть как это работает

p.s. с вас +

xwicked, Можно, например в dpr открывем дескриптор dll, а в Destroy формы, зыкрываем. И можно проверять, если дескриптор получен, значит продолжаем грузить программу. Иначе клоуз...
Тут в общем-то только фантазия програмиста=).

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

_ADDED_
ах да, в примере тоже есть фэил(ввиде утечки памяти)... забыл в динам. вызове, в конце(при успешно открытом дескрипторе hLib, вызвать FreeLibrary).

----
Все я спать. 3 часа ночи. Мозг спит, а тело ещё нет.

[volod3000]

Большое спасибо Человек_Борща !

Да, век живи, век учись. Интересный способ (обошел я эту информацию в свое время).
Беру на вооружение. С меня + и

Чего то не могу Вам добавить +, система пишит :

Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его Человек_Борща.

Я, так и сделал, но безрезультатно . Короче будет за мной.