34 lines
954 B
Plaintext
34 lines
954 B
Plaintext
program BS1Agents;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Tocsg.Safe,
|
|
DBs1AgentsMain in 'DBs1AgentsMain.pas' {DlgBs1AgentsMain},
|
|
Define in 'Define.pas',
|
|
DConnSetting in 'DConnSetting.pas' {DlgConnSetting},
|
|
ManagerSetting in 'ManagerSetting.pas',
|
|
HttpUtil in '..\..\LIB_Common\HttpUtil.pas',
|
|
ThdBS1Agent in 'ThdBS1Agent.pas',
|
|
CrmUtil in '..\..\LIB_Common\CrmUtil.pas',
|
|
Condition in '..\..\LIB_Common\Condition.pas',
|
|
GlobalDefine in '..\..\LIB_Common\GlobalDefine.pas',
|
|
ThdEvent in '..\..\EXE_eCrmHomeEdition\Thread\ThdEvent.pas',
|
|
DefineHelper in '..\..\EXE_eCrmHeHelper\DefineHelper.pas';
|
|
|
|
{$R *.res}
|
|
|
|
//var
|
|
// mtx: TTgMutex;
|
|
begin
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
// Guard(mtx, TTgMutex.Create('Global\BS1Agents@230403'));
|
|
// if mtx.MutexState <> msCreateOk then
|
|
// exit;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgBs1AgentsMain, DlgBs1AgentsMain);
|
|
Application.Run;
|
|
end.
|