33 lines
941 B
Plaintext
33 lines
941 B
Plaintext
program UrlMon;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Tocsg.Win32,
|
|
Tocsg.Safe,
|
|
DUrlMonMain in 'DUrlMonMain.pas' {DlgUrlMonMain},
|
|
CtrlWndActiveHook in '..\WndMsgHook\EXE_WndMsgHook\CtrlWndActiveHook.pas',
|
|
ManagerUrlData in 'ManagerUrlData.pas',
|
|
DNotice in '..\..\eCrmHE\EXE_eCrmHomeEdition\Messages\DNotice.pas' {DlgNotice},
|
|
Define in 'Define.pas',
|
|
GlobalDefine in '..\..\eCrmHE\LIB_Common\GlobalDefine.pas',
|
|
NetFwTypeLib_TLB in '..\MgWinFW\NetFwTypeLib_TLB.pas',
|
|
Tocsg.Firewall in '..\MgWinFW\Tocsg.Firewall.pas',
|
|
ThdExtrUrl in 'ThdExtrUrl.pas',
|
|
Condition in '..\..\eCrmHE\LIB_Common\Condition.pas';
|
|
|
|
{$R *.res}
|
|
var
|
|
mtx: TTgMutex;
|
|
begin
|
|
Guard(mtx, TTgMutex.Create('Global\25ksdkf'));
|
|
if mtx.MutexState <> msCreateOk then
|
|
exit;
|
|
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgUrlMonMain, DlgUrlMonMain);
|
|
Application.Run;
|
|
end.
|