DLL入口修复
library { library name };
uses
SysUtils,Forms, Classes;
{$R *.res}
var
DllApp: TApplication;
DllScr: TScreen;
procedure DLLUnloadProc(Reason: Integer); register;
begin
if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
begin
Application := DllApp;
Screen := DllScr;
end;
end;
exports
{your export functions here}
begin
DllApp := Application;
DllScr:= Screen;
DllProc := @DLLUnloadProc;
end.
library { library name };
uses
SysUtils,Forms, Classes;
{$R *.res}
var
DllApp: TApplication;
DllScr: TScreen;
procedure DLLUnloadProc(Reason: Integer); register;
begin
if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
begin
Application := DllApp;
Screen := DllScr;
end;
end;
exports
{your export functions here}
begin
DllApp := Application;
DllScr:= Screen;
DllProc := @DLLUnloadProc;
end.