主程序：
......
//统一的接口
TRunApp = procedure(AApplication: TApplication; AScreen: TScreen); stdcall;
......
procedure TFrmMain.RunMyDlls(MyDlls: string);
var
RunApp: TRunApp;
hMod: THandle;
begin
hMod := LoadLibrary(PChar(MyDlls));//MyDlls是Dll文件
@RunApp := GetProcAddress(hMod , 'RunApp');
try
if @RunApp <> nil then
begin
RunApp(Application, Screen);
end;
except
Showmessage('RunApp Error!');
end;
end;
......
Dll中：
library testDlls001;
uses
SysUtils,
Classes,
Windows,
Forms,
Controls,
Unt_Child1 in 'Unt_Child1.pas' {FrmChild001};
{$R *.RES}
var
DLLApp: TApplication;
DLLScr: TScreen;
procedure DLLEntryPoint(dwReason: DWORD);
begin
case dwReason of
DLL_PROCESS_ATTACH:
begin
DLLScr := Screen;
DLLApp := Application;
end;
DLL_PROCESS_DETACH:
begin
Screen := DllScr;
Application := DllApp;
end;
end;
end;
//////////////////////////////////////////
procedure RunApp(AApplication: TApplication; AScreen: TScreen); stdcall;
begin
Screen := AScreen;
Application := AApplication;
FrmChild001 := TFrmChild001.Create(Application);
end;
//////////////////////////////////////////////////////////////////////
exports
RunApp;
//////////////////////////////////////////////////////////////
begin
DLLProc := @DLLEntryPoint; //Assign the address of DLLEntryPoint to DLLProc
DLLEntryPoint(DLL_PROCESS_ATTACH); //Indicate that the DLL is attaching to the process
end.
