library BaoGuan; uses SysUtils, classes, forms, WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule}, U_FjList in 'U_FjList.pas' {frmFjList}, U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp}, U_FjList_RZ in 'U_FjList_RZ.pas' {frmFjList_RZ}, U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas', U_BaoGuanInPut in 'U_BaoGuanInPut.pas' {frmBaoGuanInPut}, U_BaoGuanCRKCX in 'U_BaoGuanCRKCX.pas' {frmBaoGuanCRKCX}, U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas'; {$R *.res} procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); end; procedure DLLUnloadProc(Reason: Integer); register; begin {if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then Application:=NewDllApp; } end; exports GetDllForm; begin try NewDllApp := Application; DLLProc := @DLLUnloadProc; except end; end.