примерно так
Код:
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 это процедура показа формы
__________________
Delphi - это лишь инструмент, а что ты сможешь создать при помощи этого инструмента, зависит исключительно от тебя.
|