procedure TForm1.PluginExecute(FileName:string);
var
PlugExec : procedure;
handle : Thandle;
begin
handle := LoadLibrary(Pchar(FileName)); //Загружаем dll
if handle <> 0 then begin
@plugExec := GetProcAddress(handle,'PluginExec');
PlugExec;
FreeLibrary(handle);
end;
end;
|