![]() |
|
|
#2
|
|||
|
|||
|
примерно так
Код:
type
TPlgShowForm = procedure(); stdcall;
Procedure PluginLoad ();
var
PlgInitProc : TPlgShowForm;
PluginHandle : THandle;
begin
PluginHandle := LoadLibrary('путь до DLL');
if PluginHandle <> 0 then begin
@PlgInitProc := GetProcAddress(PluginHandle,'Show');
PlgInitProc();
end;
until FindNext(Search) <> 0;
FindClose(Search);
end;show это процедура показа формы |