procedure Activate;stdcall;
begin
if Assigned(fmDll) then fmDll.BringToFront;
end;
procedure DLLUnloadProc(Reason: Integer); register;
begin
if Reason = 0 then
begin
Application.CancelHint;
application.Handle := 0;
if Assigned(fmDll) then FreeAndNil(fmDll);
end;
end;
exports ShowDllForm,Activate;
begin
DLLProc := @DLLUnloadProc;
end.