Мне нужно загружать DLL когда она понадобится (её может и не быть вовсе),
можете дать пример или ссылку на него... я его где то видел, но не здесь.

Цитата

можете дать пример или ссылку на него

Код

LoadLibrary(); GetProcAddress(); FreeLibrary();

Цитата

я его где то видел

Случайно не в FAQ'е? ;)

SafeLoadLibrary()

Спасибо всем !
я нашел один пример , а тот который видел не нашёл, весь фак здешний просмотрел (прежде чем постить)... нет! но я знаю что он должен быть, иммено здесь

Привет!
Code:

Загрузка и проверка функции экспортируемой DLL

type
TPARAM = packed record
CompCount: Integer;
CPU: Integer;
OS: Integer;
RAM: Integer;
HDSpace: Integer;
Video: Integer;
Audio: Integer;
DX: Integer;
Res0: Integer;
Res1: Integer;
Res2: Integer;
Res3: Integer;
Res4: Integer;
Res5: Integer;
Res6: Integer;
Res7: Integer;
Res8: Integer;
Res9: Integer;
Res10: Integer;
Res11: Integer;
Res12: Integer;
Res13: Integer;
Res14: Integer;
end;

TExecDll = function (Param: TParam): Boolean;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Exec: TExecDll;
SysLib: THandle;
Param: TParam;
begin
SysLib:= LoadLibrary('SYSINFO.DLL');
if SysLib <> 0 then
begin
FillChar(Param, Sizeof(Param), 0);
Param.CompCount:= 22;
Param.CPU:= 1;
Param.OS:= 1;
Param.RAM:= 1;
Param.HDSpace:= 1;
Param.Video:= 1;
Param.Audio:= 1;
Param.DX:= 1;
// Param.Res0:= 1;
// Param.Res1:= 1;
// Param.Res2:= 1;
@Exec:= GetProcAddress(SysLib, 'ExecDll');
if @Exec <> Nil then Exec(Param);
end;
end;

выгрузка DLL

FreeLibrary(SysLib);
Syslib:= 0;

Спасибо за помощь , уже все работает