Apply new .gitignore
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
35fa84df1a
commit
f1dcb7e76c
|
|
@ -1,23 +0,0 @@
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
VERSION = BWS.01
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
!ifndef ROOT
|
|
||||||
ROOT = $(MAKEDIR)\..
|
|
||||||
!endif
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|
||||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
|
||||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
PROJECTS = testDll.exe ProductPrice.dll
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
default: $(PROJECTS)
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
testDll.exe: testDll.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
ProductPrice.dll: ProductPrice.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
library ShipmentRequest;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_ShipmentRequest: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1,49 +0,0 @@
|
||||||
library ContractManagement;
|
|
||||||
//ÒѸÄ
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_ContractManagement: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_RTZDYHelp in '..\..\..\RTFunAndForm\Form\U_RTZDYHelp.pas' {frmRTZDYHelp},
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
|
||||||
U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,112 +0,0 @@
|
||||||
library CYZZ;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_ClothContractListHZCX in 'U_ClothContractListHZCX.pas' {frmClothContractListHZCX},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_CYZZ: TDataModule},
|
|
||||||
U_CIInPut in 'U_CIInPut.pas' {frmCIInPut},
|
|
||||||
U_GYSList in 'U_GYSList.pas' {frmGYSList},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_ClothContractListJY in 'U_ClothContractListJY.pas' {frmClothContractListJY},
|
|
||||||
U_PRTOrderViewList in 'U_PRTOrderViewList.pas' {frmPRTOrderViewList},
|
|
||||||
U_OrderInPutAnPai in 'U_OrderInPutAnPai.pas' {frmOrderInPutAnPai},
|
|
||||||
U_CPManageTPCX in 'U_CPManageTPCX.pas' {frmCPManageTPCX},
|
|
||||||
U_ZHKHListNewCX in 'U_ZHKHListNewCX.pas' {frmZHKHListNewCX},
|
|
||||||
U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList},
|
|
||||||
U_MaDanManageSTBAK in 'U_MaDanManageSTBAK.pas' {frmMaDanManageSTBAK},
|
|
||||||
U_OrderJDNote in 'U_OrderJDNote.pas' {frmOrderJDNote},
|
|
||||||
U_MaDanManageWWOne in 'U_MaDanManageWWOne.pas' {frmMaDanManageWWOne},
|
|
||||||
U_OrderSubSelMX in 'U_OrderSubSelMX.pas' {frmOrderSubSelMX},
|
|
||||||
U_OrderJSHZView in 'U_OrderJSHZView.pas' {frmOrderJSHZView},
|
|
||||||
U_MaDanManageWW in 'U_MaDanManageWW.pas' {frmMaDanManageWW},
|
|
||||||
U_MaDanManageSTBak2 in 'U_MaDanManageSTBak2.pas' {frmMaDanManageSTBak2},
|
|
||||||
U_MaDanManageST in 'U_MaDanManageST.pas' {frmMaDanManageST},
|
|
||||||
U_TJCKKC in 'U_TJCKKC.pas' {frmTJCKKC},
|
|
||||||
U_LabelList in 'U_LabelList.pas' {frmLabelList},
|
|
||||||
U_LabelAdd in 'U_LabelAdd.pas' {frmLabelAdd},
|
|
||||||
U_TJCKTHXSOK in 'U_TJCKTHXSOK.pas' {frmTJCKTHXSOK},
|
|
||||||
U_MJManageNewFDNewCDLable in 'U_MJManageNewFDNewCDLable.pas' {frmMJManageNewFDNewCDLable},
|
|
||||||
U_PRTJYListGL in 'U_PRTJYListGL.pas' {frmPRTJYListGL},
|
|
||||||
U_MJEdit in 'U_MJEdit.pas' {frmMJEdit},
|
|
||||||
U_PRTJYDJList in 'U_PRTJYDJList.pas' {frmPRTJYDJList},
|
|
||||||
U_CWMDOtherFeeList in 'U_CWMDOtherFeeList.pas' {frmCWMDOtherFeeList},
|
|
||||||
U_OrdCostQtyList in 'U_OrdCostQtyList.pas' {frmOrdCostQtyList},
|
|
||||||
U_MDManageChk in 'U_MDManageChk.pas' {frmMDManageChk},
|
|
||||||
U_BGCWEndManage in 'U_BGCWEndManage.pas' {frmBGCWEndManage},
|
|
||||||
U_BGJCKMXGYSInput in 'U_BGJCKMXGYSInput.pas' {frmBGJCKMXGYSInput},
|
|
||||||
U_OrdCostZHList in 'U_OrdCostZHList.pas' {frmOrdCostZHList},
|
|
||||||
U_TJCKRKOKNew in '..\Ó¦ÊÕÓ¦¸¶(³¤ÑôÕëÖ¯)\U_TJCKRKOKNew.pas' {frmTJCKRKOKNew},
|
|
||||||
U_TJCKRKOKView in 'U_TJCKRKOKView.pas' {frmTJCKRKOKView},
|
|
||||||
U_TJCKOutOK in 'U_TJCKOutOK.pas' {frmTJCKOutOK},
|
|
||||||
U_HCJYView in 'U_HCJYView.pas' {frmHCJYView},
|
|
||||||
U_TJCKOutOKChk in 'U_TJCKOutOKChk.pas' {frmTJCKOutOKChk},
|
|
||||||
U_KKView in 'U_KKView.pas' {frmKKView},
|
|
||||||
U_BGZLInput in 'U_BGZLInput.pas' {frmBGZLInput},
|
|
||||||
U_BGLDChk in 'U_BGLDChk.pas' {frmBGLDChk},
|
|
||||||
U_BGCWManage in 'U_BGCWManage.pas' {frmBGCWManage},
|
|
||||||
U_BGFeeChkList in 'U_BGFeeChkList.pas' {frmBGFeeChkList},
|
|
||||||
U_BGFeeInPut in 'U_BGFeeInPut.pas' {frmBGFeeInPut},
|
|
||||||
U_MDChkFLZhengYiCLChk in 'U_MDChkFLZhengYiCLChk.pas' {frmMDChkFLZhengYiCLChk},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_MDChkFLView in 'U_MDChkFLView.pas' {frmMDChkFLView},
|
|
||||||
U_FHOKSelList in 'U_FHOKSelList.pas' {frmFHOKSelList},
|
|
||||||
U_KKList in 'U_KKList.pas' {frmKKList},
|
|
||||||
U_CICXList in 'U_CICXList.pas' {frmCICXList},
|
|
||||||
U_ConDJFenPei in 'U_ConDJFenPei.pas' {frmConDJFenPei},
|
|
||||||
U_MeetingAPNew in 'U_MeetingAPNew.pas' {frmMeetingAPNew},
|
|
||||||
U_MDChkFLFK in 'U_MDChkFLFK.pas' {frmMDChkFLFK},
|
|
||||||
U_WXFPList in 'U_WXFPList.pas' {frmWXFPList},
|
|
||||||
U_WXFPInPutWGL in 'U_WXFPInPutWGL.pas' {frmWXFPInPutWGL},
|
|
||||||
U_BGHZSelList in 'U_BGHZSelList.pas' {frmBGHZSelList},
|
|
||||||
U_BGMXSelList in 'U_BGMXSelList.pas' {frmBGMXSelList},
|
|
||||||
U_NBFPInPutWGLBCOrderNo in 'U_NBFPInPutWGLBCOrderNo.pas' {frmNBFPInPutWGLBCOrderNo},
|
|
||||||
U_KDList in 'U_KDList.pas' {frmKDList},
|
|
||||||
U_KDInPut in 'U_KDInPut.pas' {frmKDInPut},
|
|
||||||
U_KDOKList in 'U_KDOKList.pas' {frmKDOKList},
|
|
||||||
U_FjList in 'U_FjList.pas' {frmFjList},
|
|
||||||
U_UserModuleNameList in 'U_UserModuleNameList.pas' {frmUserModuleNameList},
|
|
||||||
U_WorkDeptFeeList in 'U_WorkDeptFeeList.pas' {frmWorkDeptFeeList},
|
|
||||||
U_WorkerDeptFeeInPut in 'U_WorkerDeptFeeInPut.pas' {frmWorkerDeptFeeInPut},
|
|
||||||
U_SYDeptUserView in 'U_SYDeptUserView.pas' {frmSYDeptUserView},
|
|
||||||
U_WorkDeptFeeFKHXList in 'U_WorkDeptFeeFKHXList.pas' {frmWorkDeptFeeFKHXList};
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
|
|
@ -1,163 +0,0 @@
|
||||||
library DDMD;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_ClothContractListHZCX in 'U_ClothContractListHZCX.pas' {frmClothContractListHZCX},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule},
|
|
||||||
U_CIInPut in 'U_CIInPut.pas' {frmCIInPut},
|
|
||||||
U_GYSList in 'U_GYSList.pas' {frmGYSList},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_ClothContractListJY in 'U_ClothContractListJY.pas' {frmClothContractListJY},
|
|
||||||
U_PRTOrderViewList in 'U_PRTOrderViewList.pas' {frmPRTOrderViewList},
|
|
||||||
U_OrderInPutAnPai in 'U_OrderInPutAnPai.pas' {frmOrderInPutAnPai},
|
|
||||||
U_ZHKHListNewCX in 'U_ZHKHListNewCX.pas' {frmZHKHListNewCX},
|
|
||||||
U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList},
|
|
||||||
U_MaDanManageSTBAK in 'U_MaDanManageSTBAK.pas' {frmMaDanManageSTBAK},
|
|
||||||
U_OrderJDNote in 'U_OrderJDNote.pas' {frmOrderJDNote},
|
|
||||||
U_MaDanManageWWOne in 'U_MaDanManageWWOne.pas' {frmMaDanManageWWOne},
|
|
||||||
U_OrderSubSelMX in 'U_OrderSubSelMX.pas' {frmOrderSubSelMX},
|
|
||||||
U_OrderJSHZView in 'U_OrderJSHZView.pas' {frmOrderJSHZView},
|
|
||||||
U_MaDanManageWW in 'U_MaDanManageWW.pas' {frmMaDanManageWW},
|
|
||||||
U_MaDanManageSTBak2 in 'U_MaDanManageSTBak2.pas' {frmMaDanManageSTBak2},
|
|
||||||
U_MaDanManageST in 'U_MaDanManageST.pas' {frmMaDanManageST},
|
|
||||||
U_TJCKKC in 'U_TJCKKC.pas' {frmTJCKKC},
|
|
||||||
U_LabelList in 'U_LabelList.pas' {frmLabelList},
|
|
||||||
U_LabelAdd in 'U_LabelAdd.pas' {frmLabelAdd},
|
|
||||||
U_TJCKTHXSOK in 'U_TJCKTHXSOK.pas' {frmTJCKTHXSOK},
|
|
||||||
U_MJManageNewFDNewCDLable in 'U_MJManageNewFDNewCDLable.pas' {frmMJManageNewFDNewCDLable},
|
|
||||||
U_PRTJYListGL in 'U_PRTJYListGL.pas' {frmPRTJYListGL},
|
|
||||||
U_MJEdit in 'U_MJEdit.pas' {frmMJEdit},
|
|
||||||
U_PRTJYDJList in 'U_PRTJYDJList.pas' {frmPRTJYDJList},
|
|
||||||
U_CWMDOtherFeeList in 'U_CWMDOtherFeeList.pas' {frmCWMDOtherFeeList},
|
|
||||||
U_OrdCostQtyList in 'U_OrdCostQtyList.pas' {frmOrdCostQtyList},
|
|
||||||
U_MDManageChk in 'U_MDManageChk.pas' {frmMDManageChk},
|
|
||||||
U_BGCWEndManage in 'U_BGCWEndManage.pas' {frmBGCWEndManage},
|
|
||||||
U_BGJCKMXGYSInput in 'U_BGJCKMXGYSInput.pas' {frmBGJCKMXGYSInput},
|
|
||||||
U_OrdCostZHList in 'U_OrdCostZHList.pas' {frmOrdCostZHList},
|
|
||||||
U_TJCKRKOKNew in '..\Ó¦ÊÕÓ¦¸¶(³¤ÑôÕëÖ¯)\U_TJCKRKOKNew.pas' {frmTJCKRKOKNew},
|
|
||||||
U_TJCKRKOKView in 'U_TJCKRKOKView.pas' {frmTJCKRKOKView},
|
|
||||||
U_TJCKOutOK in 'U_TJCKOutOK.pas' {frmTJCKOutOK},
|
|
||||||
U_HCJYView in 'U_HCJYView.pas' {frmHCJYView},
|
|
||||||
U_TJCKOutOKChk in 'U_TJCKOutOKChk.pas' {frmTJCKOutOKChk},
|
|
||||||
U_KKView in 'U_KKView.pas' {frmKKView},
|
|
||||||
U_BGZLInput in 'U_BGZLInput.pas' {frmBGZLInput},
|
|
||||||
U_BGLDChk in 'U_BGLDChk.pas' {frmBGLDChk},
|
|
||||||
U_BGCWManage in 'U_BGCWManage.pas' {frmBGCWManage},
|
|
||||||
U_BGFeeChkList in 'U_BGFeeChkList.pas' {frmBGFeeChkList},
|
|
||||||
U_BGFeeInPut in 'U_BGFeeInPut.pas' {frmBGFeeInPut},
|
|
||||||
U_MDChkFLZhengYiCLChk in 'U_MDChkFLZhengYiCLChk.pas' {frmMDChkFLZhengYiCLChk},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_MDChkFLView in 'U_MDChkFLView.pas' {frmMDChkFLView},
|
|
||||||
U_FHOKSelList in 'U_FHOKSelList.pas' {frmFHOKSelList},
|
|
||||||
U_KKList in 'U_KKList.pas' {frmKKList},
|
|
||||||
U_CICXList in 'U_CICXList.pas' {frmCICXList},
|
|
||||||
U_ConDJFenPei in 'U_ConDJFenPei.pas' {frmConDJFenPei},
|
|
||||||
U_MeetingAPNew in 'U_MeetingAPNew.pas' {frmMeetingAPNew},
|
|
||||||
U_SXMDList in 'U_SXMDList.pas' {frmSXMDList},
|
|
||||||
U_WXFPList in 'U_WXFPList.pas' {frmWXFPList},
|
|
||||||
U_WXFPInPutWGL in 'U_WXFPInPutWGL.pas' {frmWXFPInPutWGL},
|
|
||||||
U_BGHZSelList in 'U_BGHZSelList.pas' {frmBGHZSelList},
|
|
||||||
U_BGMXSelList in 'U_BGMXSelList.pas' {frmBGMXSelList},
|
|
||||||
U_NBFPInPutWGLBCOrderNo in 'U_NBFPInPutWGLBCOrderNo.pas' {frmNBFPInPutWGLBCOrderNo},
|
|
||||||
U_KDList in 'U_KDList.pas' {frmKDList},
|
|
||||||
U_KDInPut in 'U_KDInPut.pas' {frmKDInPut},
|
|
||||||
U_KDOKList in 'U_KDOKList.pas' {frmKDOKList},
|
|
||||||
U_FjList in 'U_FjList.pas' {frmFjList},
|
|
||||||
U_UserModuleNameList in 'U_UserModuleNameList.pas' {frmUserModuleNameList},
|
|
||||||
U_WorkDeptFeeList in 'U_WorkDeptFeeList.pas' {frmWorkDeptFeeList},
|
|
||||||
U_WorkerDeptFeeInPut in 'U_WorkerDeptFeeInPut.pas' {frmWorkerDeptFeeInPut},
|
|
||||||
U_SYDeptUserView in 'U_SYDeptUserView.pas' {frmSYDeptUserView},
|
|
||||||
U_WorkDeptFeeFKHXList in 'U_WorkDeptFeeFKHXList.pas' {frmWorkDeptFeeFKHXList},
|
|
||||||
U_WorkDeptFeeBXFKList in 'U_WorkDeptFeeBXFKList.pas' {frmWorkDeptFeeBXFKList},
|
|
||||||
U_CPType in 'U_CPType.pas' {frmCPType},
|
|
||||||
U_CPSel in 'U_CPSel.pas' {frmCPSel},
|
|
||||||
U_KHGetCPManage in 'U_KHGetCPManage.pas' {frmKHGetCPManage},
|
|
||||||
U_ContractList in 'U_ContractList.pas' {frmContractList},
|
|
||||||
U_ZHKHListNew in 'U_ZHKHListNew.pas' {frmZHKHListNew},
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_SYDept in 'U_SYDept.pas' {frmSYDept},
|
|
||||||
U_PRTOrderAPList in 'U_PRTOrderAPList.pas' {frmPRTOrderAPList},
|
|
||||||
U_OrderSubSel in 'U_OrderSubSel.pas' {frmOrderSubSel},
|
|
||||||
U_GYSSelList in 'U_GYSSelList.pas' {frmGYSSelList},
|
|
||||||
U_ClothContractInPutSXMX in 'U_ClothContractInPutSXMX.pas' {frmClothContractInPutSXMX},
|
|
||||||
U_ClothContractInPutJY in 'U_ClothContractInPutJY.pas' {frmClothContractInPutJY},
|
|
||||||
U_PRTOrderPriceList in 'U_PRTOrderPriceList.pas' {frmPRTOrderPriceList},
|
|
||||||
U_ContractSelList in 'U_ContractSelList.pas' {frmContractSelList},
|
|
||||||
U_TJCKRKOK in 'U_TJCKRKOK.pas' {frmTJCKRKOK},
|
|
||||||
U_SCMDList in 'U_SCMDList.pas' {frmMDList},
|
|
||||||
U_MDManage in 'U_MDManage.pas' {frmMDManage},
|
|
||||||
U_PRTJYList in 'U_PRTJYList.pas' {frmPRTJYList},
|
|
||||||
U_TJCKDCView in 'U_TJCKDCView.pas' {frmTJCKDCView},
|
|
||||||
U_TJCKOutView in 'U_TJCKOutView.pas' {frmTJCKOutView},
|
|
||||||
U_OrdCostList in 'U_OrdCostList.pas' {frmOrdCostList},
|
|
||||||
U_YPInList in 'U_YPInList.pas' {frmYPInList},
|
|
||||||
U_YPCKKCList in 'U_YPCKKCList.pas' {frmYPCKKCList},
|
|
||||||
U_KHGetCPAdd in 'U_KHGetCPAdd.pas' {frmKHGetCPAdd},
|
|
||||||
U_FHList in 'U_FHList.pas' {frmFHList},
|
|
||||||
U_FHChkList in 'U_FHChkList.pas' {frmFHChkList},
|
|
||||||
U_FHOKList in 'U_FHOKList.pas' {frmFHOKList},
|
|
||||||
U_CIList in 'U_CIList.pas' {frmCIList},
|
|
||||||
U_GYSFPList in 'U_GYSFPList.pas' {frmGYSFPList},
|
|
||||||
U_SKCRFenPei in 'U_SKCRFenPei.pas' {frmSKCRFenPei},
|
|
||||||
U_FHInPut in 'U_FHInPut.pas' {frmFHInPut},
|
|
||||||
U_FHJJInPut in 'U_FHJJInPut.pas' {frmFHJJInPut},
|
|
||||||
U_ContractViewList in 'U_ContractViewList.pas' {frmContractViewList},
|
|
||||||
U_PBCKOutList in 'U_PBCKOutList.pas' {frmPBCKOutList},
|
|
||||||
U_SXJGDZInPut in 'U_SXJGDZInPut.pas' {frmSXJGDZInPut},
|
|
||||||
U_OrderInPutPrice in 'U_OrderInPutPrice.pas' {frmOrderInPutPrice},
|
|
||||||
U_ModulePromptList in 'U_ModulePromptList.pas' {frmModulePromptList},
|
|
||||||
U_PRTOrderPBDHViewList in 'U_PRTOrderPBDHViewList.pas' {frmPRTOrderPBDHViewList},
|
|
||||||
U_SXJGDZList in 'U_SXJGDZList.pas' {frmSXJGDZList},
|
|
||||||
U_SXKCList in 'U_SXKCList.pas' {frmSXKCList},
|
|
||||||
U_SXCKOutList in 'U_SXCKOutList.pas' {frmSXCKOutList},
|
|
||||||
U_SXCKOutPut in 'U_SXCKOutPut.pas' {frmSXCKOutPut},
|
|
||||||
U_SXCKTHPut in 'U_SXCKTHPut.pas' {frmSXCKTHPut},
|
|
||||||
U_YFCRLZ in 'U_YFCRLZ.pas' {frmYFCRLZ},
|
|
||||||
U_PKQTList in 'U_PKQTList.pas' {frmPKQTList},
|
|
||||||
U_PKInPut in 'U_PKInPut.pas' {frmPKInPut},
|
|
||||||
U_PKInPutQT in 'U_PKInPutQT.pas' {frmPKInPutQT},
|
|
||||||
U_PKHZList in 'U_PKHZList.pas' {frmPKHZList},
|
|
||||||
U_PKFKList in 'U_PKFKList.pas' {frmPKFKList},
|
|
||||||
U_YFFKFPList in 'U_YFFKFPList.pas' {frmYFFKFPList},
|
|
||||||
U_SKCRCYZZ in 'U_SKCRCYZZ.pas' {frmSKCRCYZZ};
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
|
|
@ -1,71 +0,0 @@
|
||||||
library PBMDDJ;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule},
|
|
||||||
U_GYSList in 'U_GYSList.pas' {frmGYSList},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_GYSSelList in 'U_GYSSelList.pas' {frmGYSSelList},
|
|
||||||
U_CPBRKList in 'U_CPBRKList.pas' {frmCPBRKList},
|
|
||||||
U_CPBCKInPut in 'U_CPBCKInPut.pas' {frmCPBCKInPut},
|
|
||||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS},
|
|
||||||
U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
|
|
||||||
U_CPBCKOutPut in 'U_CPBCKOutPut.pas' {frmCPBCKOutPut},
|
|
||||||
U_PBCKKCList in 'U_PBCKKCList.pas' {frmPBCKKCList},
|
|
||||||
U_CPBCKOutList in 'U_CPBCKOutList.pas' {frmCPBCKOutList},
|
|
||||||
U_WJGCKKCHZList in 'U_WJGCKKCHZList.pas' {frmWJGCKKCHZList},
|
|
||||||
U_DJBCKKCHZList in 'U_DJBCKKCHZList.pas' {frmDJBCKKCHZList},
|
|
||||||
U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP},
|
|
||||||
U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas';
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,48 +0,0 @@
|
||||||
library Company;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,48 +0,0 @@
|
||||||
library SendSample;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_SendSample: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Form\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,23 +0,0 @@
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
VERSION = BWS.01
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
!ifndef ROOT
|
|
||||||
ROOT = $(MAKEDIR)\..
|
|
||||||
!endif
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|
||||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
|
||||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
PROJECTS = testDll.exe ProductPrice.dll
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
default: $(PROJECTS)
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
testDll.exe: testDll.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
ProductPrice.dll: ProductPrice.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,83 +0,0 @@
|
||||||
library YSYF;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_ProductOrderCost in 'U_ProductOrderCost.pas' {frmProductOrderCost},
|
|
||||||
U_YSSKList in 'U_YSSKList.pas' {frmYSSKList},
|
|
||||||
U_SKCROLJ in 'U_SKCROLJ.pas' {frmSKCROLJ},
|
|
||||||
U_YSCROL in 'U_YSCROL.pas' {frmYSCROL},
|
|
||||||
U_FKCRLZ in 'U_FKCRLZ.pas' {frmFKCRLZ},
|
|
||||||
U_YSFP in 'U_YSFP.pas' {frmYSFP},
|
|
||||||
U_ProductOrderList in 'U_ProductOrderList.pas' {frmProductOrderList},
|
|
||||||
U_YSZDList_MX in 'U_YSZDList_MX.pas' {frmYSZDList_MX},
|
|
||||||
U_PbProductList in 'U_PbProductList.pas' {frmPbProductList},
|
|
||||||
U_ProductOrderListOLJ in 'U_ProductOrderListOLJ.pas' {frmProductOrderListOLJ},
|
|
||||||
U_YSCRJZC in 'U_YSCRJZC.pas' {frmYSCRJZC},
|
|
||||||
U_SKCRLZ in 'U_SKCRLZ.pas' {frmSKCRLZ},
|
|
||||||
U_YSHZMXView in 'U_YSHZMXView.pas' {frmYSHZMXView},
|
|
||||||
U_YFCRLZView in 'U_YFCRLZView.pas' {frmYFCRLZView},
|
|
||||||
U_YFCRLZQty in 'U_YFCRLZQty.pas' {frmYFCRLZQty},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_YFMXlist in 'U_YFMXlist.pas' {frmYFMXlist},
|
|
||||||
U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP},
|
|
||||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS},
|
|
||||||
U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment},
|
|
||||||
U_BpGdCklist in 'U_BpGdCklist.pas' {frmBpGdCklist},
|
|
||||||
U_YSSCList in 'U_YSSCList.pas' {frmYSSCList},
|
|
||||||
U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
|
|
||||||
U_XXFPINVOICE_TJ in 'U_XXFPINVOICE_TJ.pas' {frmXXFPInvoice_TJ},
|
|
||||||
U_FDINVOICE_S in 'U_FDINVOICE_S.pas' {frmFDINVOICE_S},
|
|
||||||
U_FDINVOICE_Sub_S in 'U_FDINVOICE_Sub_S.pas' {FrmInvoice_Sub_S},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_CPManageSel in 'U_CPManageSel.pas' {frmCPManageSel},
|
|
||||||
U_YF_Money_LL in 'U_YF_Money_LL.pas' {frmMoney_LL},
|
|
||||||
U_FjList10 in '..\..\..\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
|
||||||
U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas';
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
BIN
应收应付/testDll.exe
BIN
应收应付/testDll.exe
Binary file not shown.
|
|
@ -1,47 +0,0 @@
|
||||||
library WechatManage;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_WechatManage: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,48 +0,0 @@
|
||||||
library FinishedClothWarehouse;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_FinishedClothWarehouse: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1,46 +0,0 @@
|
||||||
library MobileTrack;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_MobileTrack: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,2 +0,0 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject/>
|
|
||||||
|
|
@ -1,56 +0,0 @@
|
||||||
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_ZDYHelp4 in 'U_ZDYHelp4.pas' {frmZDYHelp4},
|
|
||||||
U_FjList_RZ in 'U_FjList_RZ.pas' {frmFjList_RZ},
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
|
||||||
U_YFGLInPut in 'U_YFGLInPut.pas' {frmYFGLInPut},
|
|
||||||
U_BaoGuanCRKCX in 'U_BaoGuanCRKCX.pas' {frmBaoGuanCRKCX},
|
|
||||||
U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas',
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,2 +0,0 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject/>
|
|
||||||
|
|
@ -1,56 +0,0 @@
|
||||||
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_ZDYHelp4 in 'U_ZDYHelp4.pas' {frmZDYHelp4},
|
|
||||||
U_FjList_RZ in 'U_FjList_RZ.pas' {frmFjList_RZ},
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
|
||||||
U_YFGLInPut in 'U_YFGLInPut.pas' {frmYFGLInPut},
|
|
||||||
U_BaoGuanCRKCX in 'U_BaoGuanCRKCX.pas' {frmBaoGuanCRKCX},
|
|
||||||
U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas',
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,55 +0,0 @@
|
||||||
library GYJWLCK;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_GYJWL: TDataModule},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS},
|
|
||||||
U_ShaKCHZListJWL in 'U_ShaKCHZListJWL.pas' {frmShaKCHZListJWL},
|
|
||||||
U_ShaKCSelList in 'U_ShaKCSelList.pas' {frmShaKCSelList},
|
|
||||||
U_ShaOutPut in 'U_ShaOutPut.pas' {frmShaOutPut},
|
|
||||||
U_ShaRKInPut in 'U_ShaRKInPut.pas' {frmShaRKInPut},
|
|
||||||
U_JWLcktjlist in 'U_JWLcktjlist.pas' {frmJWLcktjlist},
|
|
||||||
U_ZZJWLOutHZList in 'U_ZZJWLOutHZList.pas' {frmZZJWLOutHZList},
|
|
||||||
U_ZZJWLRKList in 'U_ZZJWLRKList.pas' {frmZZJWLRKList},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintField in '..\..\..\ThreeFun\Form\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,2 +0,0 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject/>
|
|
||||||
Binary file not shown.
|
|
@ -1,52 +0,0 @@
|
||||||
library DyeingFinishingPlan;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_DyeingFinishingPlan: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp2 in 'U_ZDYHelp2.pas' {frmZDYHelp2},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
|
||||||
U_FjList10 in '..\..\..\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
|
|
||||||
U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
|
|
||||||
U_QXGL in 'U_QXGL.pas' {frmQXGL};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,51 +0,0 @@
|
||||||
library YPGL;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_YPGL: TDataModule},
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_CPType in 'U_CPType.pas' {frmCPType},
|
|
||||||
U_FLAddPN in 'U_FLAddPN.pas' {frmFLAddPN},
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_FLManage in 'U_FLManage.pas' {frmflManage},
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_SLT in 'U_SLT.pas' {frmSLT: TFrame},
|
|
||||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,48 +0,0 @@
|
||||||
library SampleWarehouse;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_SampleWarehouse: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_RTZDYHelp in '..\..\..\RTFunAndForm\Form\U_RTZDYHelp.pas' {frmRTZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintField in '..\..\..\ThreeFun\Form\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,47 +0,0 @@
|
||||||
library MessageAlert;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_MessageAlert: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,55 +0,0 @@
|
||||||
library CPCK;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_DataLink in 'U_DataLink.pas' {CPCK_DataLink: TDataModule},
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_getDogServer in '..\..\..\ThreeFun\Fun\U_getDogServer.pas',
|
|
||||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_BpSmRk in 'U_BpSmRk.pas' {frmBpSmRk},
|
|
||||||
U_BpCklist in 'U_Bpcklist.pas' {frmBpCklist},
|
|
||||||
U_BpJylist in 'U_BpJylist.pas' {frmBpJylist},
|
|
||||||
U_BpRk in 'U_BpRk.pas' {frmbpRk},
|
|
||||||
U_ProductOrderNewList in 'U_ProductOrderNewList.pas' {frmProductOrderNewList},
|
|
||||||
U_BpCk in 'U_BpCk.pas' {frmbpCk},
|
|
||||||
U_BpSmCk in 'U_BpSmCk.pas' {frmBpSmCk},
|
|
||||||
U_BpRklist in 'U_BpRklist.pas' {frmBpRklist};
|
|
||||||
|
|
||||||
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
|
|
||||||
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
|
|
||||||
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
|
||||||
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
|
|
||||||
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
|
|
||||||
|
|
||||||
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.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.
|
|
||||||
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
VERSION = BWS.01
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
!ifndef ROOT
|
|
||||||
ROOT = $(MAKEDIR)\..
|
|
||||||
!endif
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
|
||||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
|
||||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
PROJECTS = testDll.exe CPCK.dll
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
default: $(PROJECTS)
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
testDll.exe: testDll.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
CPCK.dll: CPCK.dpr
|
|
||||||
$(DCC)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,61 +0,0 @@
|
||||||
library YPCK;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_DataLink in 'U_DataLink.pas' {YPCK_DataLink: TDataModule},
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
|
||||||
U_getDogServer in '..\..\..\ThreeFun\Fun\U_getDogServer.pas',
|
|
||||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_BpSmRk in 'U_BpSmRk.pas' {frmBpSmRk},
|
|
||||||
U_Bpckchklist in 'U_Bpckchklist.pas' {frmBpckchklist},
|
|
||||||
U_BpJylist in 'U_BpJylist.pas' {frmBpJylist},
|
|
||||||
U_CYGGRk in 'U_CYGGRk.pas' {frmCYGGRk},
|
|
||||||
U_ProductOrderNewList in 'U_ProductOrderNewList.pas' {frmProductOrderNewList},
|
|
||||||
U_CYGGCk in 'U_CYGGCk.pas' {frmCYGGCk},
|
|
||||||
U_BpSmCk in 'U_BpSmCk.pas' {frmBpSmCk},
|
|
||||||
U_CYGGRklist in 'U_CYGGRklist.pas' {frmCYGGRklist},
|
|
||||||
U_CPManageSel in 'U_CPManageSel.pas' {frmCPManageSel},
|
|
||||||
U_SLT in 'U_SLT.pas' {frmSLT: TFrame},
|
|
||||||
U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment},
|
|
||||||
U_CYGGkcsumlist in 'U_CYGGkcsumlist.pas' {frmCYGGkcsumlist},
|
|
||||||
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS},
|
|
||||||
U_ZdyAttachmentBJ in 'U_ZdyAttachmentBJ.pas' {frmZdyAttachmentCB},
|
|
||||||
U_ZdyAttachmentBJ_Edit in 'U_ZdyAttachmentBJ_Edit.pas' {frmZdyAttachmentBJ_Edit},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_RTFun in '..\..\..\ThreeFun\Fun\U_RTFun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Form\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,14 +0,0 @@
|
||||||
program testDll;
|
|
||||||
|
|
||||||
uses
|
|
||||||
Forms,
|
|
||||||
U_testdll in 'U_testdll.pas' {Form1};
|
|
||||||
|
|
||||||
{$R *.res}
|
|
||||||
|
|
||||||
begin
|
|
||||||
Application.Initialize;
|
|
||||||
Application.CreateForm(TForm1, Form1);
|
|
||||||
Application.Run;
|
|
||||||
end.
|
|
||||||
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
library Statistics;
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils,
|
|
||||||
classes,
|
|
||||||
forms,
|
|
||||||
WinTypes,
|
|
||||||
WinProcs,
|
|
||||||
U_GetDllForm in 'U_GetDllForm.pas',
|
|
||||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
|
||||||
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
|
|
||||||
U_DataLink in 'U_DataLink.pas' {DataLink_Statistics: TDataModule},
|
|
||||||
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
|
||||||
U_iniParam in 'U_iniParam.pas',
|
|
||||||
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
|
|
||||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
|
||||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
|
||||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
|
||||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
|
||||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
|
||||||
|
|
||||||
{$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.
|
|
||||||
|
|
||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user