38 lines
894 B
Plaintext
38 lines
894 B
Plaintext
program eCrmInstaller;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
System.SysUtils,
|
|
Tocsg.Win32,
|
|
Tocsg.Safe,
|
|
Tocsg.Path,
|
|
DeCrmHeInstMain in 'DeCrmHeInstMain.pas' {DlgeCrmHeInstMain},
|
|
Define in 'Define.pas',
|
|
ProcessUninstall in 'ProcessUninstall.pas',
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
|
|
ManagerModel in '..\EXE_eCrmHomeEdition\Manager\ManagerModel.pas',
|
|
Condition in '..\LIB_Common\Condition.pas';
|
|
|
|
//{$IFDEF RELEASE}
|
|
{$R 'IncRes.res', 'IncRes.rc'}
|
|
//{$ENDIF}
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
mtx: TTgMutex;
|
|
begin
|
|
Guard(mtx, TTgMutex.Create(MUTEX_INSTALLER));
|
|
if mtx.MutexState <> msCreateOk then
|
|
exit;
|
|
|
|
if ExtractFileName(GetRunExePath).ToUpper = 'ECRMINSTALLER.EXE' then
|
|
begin
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgeCrmHeInstMain, DlgeCrmHeInstMain);
|
|
Application.Run;
|
|
end else
|
|
ProcessInstall(nil, true);
|
|
end.
|