DLL入口修复

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.