133 lines
5.4 KiB
Plaintext
133 lines
5.4 KiB
Plaintext
program eCrmHeInstaller;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Winapi.Windows,
|
|
System.SysUtils,
|
|
Tocsg.Obj in '..\..\Tocsg.Lib\VCL\Tocsg.Obj.pas',
|
|
Tocsg.Safe in '..\..\Tocsg.Lib\VCL\Tocsg.Safe.pas',
|
|
Tocsg.Path in '..\..\Tocsg.Lib\VCL\Tocsg.Path.pas',
|
|
Tocsg.Win32 in '..\..\Tocsg.Lib\VCL\Tocsg.Win32.pas',
|
|
Tocsg.Trace in '..\..\Tocsg.Lib\VCL\Tocsg.Trace.pas',
|
|
Tocsg.Files in '..\..\Tocsg.Lib\VCL\Tocsg.Files.pas',
|
|
Tocsg.DateTime in '..\..\Tocsg.Lib\VCL\Tocsg.DateTime.pas',
|
|
Tocsg.Encrypt in '..\..\Tocsg.Lib\VCL\Tocsg.Encrypt.pas',
|
|
Tocsg.Thread in '..\..\Tocsg.Lib\VCL\Tocsg.Thread.pas',
|
|
Tocsg.Strings in '..\..\Tocsg.Lib\VCL\Tocsg.Strings.pas',
|
|
Tocsg.Hex in '..\..\Tocsg.Lib\VCL\Tocsg.Hex.pas',
|
|
Tocsg.Json in '..\..\Tocsg.Lib\VCL\Tocsg.Json.pas',
|
|
Tocsg.Packet in '..\..\Tocsg.Lib\VCL\CS\Tocsg.Packet.pas',
|
|
Tocsg.Process in '..\..\Tocsg.Lib\VCL\Tocsg.Process.pas',
|
|
Tocsg.WTS in '..\..\Tocsg.Lib\VCL\Tocsg.WTS.pas',
|
|
Tocsg.Kernel32 in '..\..\Tocsg.Lib\VCL\Tocsg.Kernel32.pas',
|
|
Tocsg.Exception in '..\..\Tocsg.Lib\VCL\Tocsg.Exception.pas',
|
|
Tocsg.FileInfo in '..\..\Tocsg.Lib\VCL\Tocsg.FileInfo.pas',
|
|
Tocsg.WndUtil in '..\..\Tocsg.Lib\VCL\Tocsg.WndUtil.pas',
|
|
Tocsg.WinInfo in '..\..\Tocsg.Lib\VCL\Tocsg.WinInfo.pas',
|
|
Tocsg.Registry in '..\..\Tocsg.Lib\VCL\Tocsg.Registry.pas',
|
|
Tocsg.Service in '..\..\Tocsg.Lib\VCL\Tocsg.Service.pas',
|
|
Tocsg.Shell in '..\..\Tocsg.Lib\VCL\Tocsg.Shell.pas',
|
|
Tocsg.Disk in '..\..\Tocsg.Lib\VCL\Tocsg.Disk.pas',
|
|
Tocsg.Driver in '..\..\Tocsg.Lib\VCL\Tocsg.Driver.pas',
|
|
Tocsg.Convert in '..\..\Tocsg.Lib\VCL\Tocsg.Convert.pas',
|
|
Tocsg.VTUtil in '..\..\Tocsg.Lib\VCL\Tocsg.VTUtil.pas',
|
|
Tocsg.Graphic in '..\..\Tocsg.Lib\VCL\Tocsg.Graphic.pas',
|
|
Tocsg.Network in '..\..\Tocsg.Lib\VCL\Tocsg.Network.pas',
|
|
Tocsg.Binary in '..\..\Tocsg.Lib\VCL\Tocsg.Binary.pas',
|
|
Tocsg.Hash in '..\..\Tocsg.Lib\VCL\Tocsg.Hash.pas',
|
|
Tocsg.WMI in '..\..\Tocsg.Lib\VCL\Tocsg.WMI.pas',
|
|
|
|
superobject in '..\..\Tocsg.Lib\VCL\SuperObject\superobject.pas',
|
|
aes_type in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_type.pas',
|
|
aes_cbc in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_cbc.pas',
|
|
aes_ecb in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_ecb.pas',
|
|
BTypes in '..\..\Tocsg.Lib\VCL\EncLib\AES\BTypes.pas',
|
|
AES_Base in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Base.pas',
|
|
AES_Encr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Encr.pas',
|
|
AES_Decr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Decr.pas',
|
|
|
|
EM.MD5 in '..\..\Tocsg.Lib\VCL\EncLib\EM.MD5.pas',
|
|
EM.Tocsg.hash in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.hash.pas',
|
|
EM.Tocsg.Sha1 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.Sha1.pas',
|
|
EM.CRC32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.CRC32.pas',
|
|
EM.Tocsg.sha256 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.sha256.pas',
|
|
EM.GSStorage in '..\..\Tocsg.Lib\VCL\Other\EM.GSStorage.pas',
|
|
EM.WinOSVersion in '..\..\Tocsg.Lib\VCL\Other\EM.WinOSVersion.pas',
|
|
EM.winioctl in '..\..\Tocsg.Lib\VCL\Other\EM.winioctl.pas',
|
|
EM.WtsApi32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.WtsApi32.pas',
|
|
EM.nduWlanAPI in '..\..\Tocsg.Lib\VCL\Other\EM.nduWlanAPI.pas',
|
|
EM.nduCType in '..\..\Tocsg.Lib\VCL\Other\EM.nduCType.pas',
|
|
EM.nduL2cmn in '..\..\Tocsg.Lib\VCL\Other\EM.nduL2cmn.pas',
|
|
EM.nduWlanTypes in '..\..\Tocsg.Lib\VCL\Other\EM.nduWlanTypes.pas',
|
|
EM.nduWinDot11 in '..\..\Tocsg.Lib\VCL\Other\EM.nduWinDot11.pas',
|
|
EM.nduNtDDNdis in '..\..\Tocsg.Lib\VCL\Other\EM.nduNtDDNdis.pas',
|
|
EM.nduWinNT in '..\..\Tocsg.Lib\VCL\Other\EM.nduWinNT.pas',
|
|
EM.nduEapTypes in '..\..\Tocsg.Lib\VCL\Other\EM.nduEapTypes.pas',
|
|
EM.WbemScripting_TLB in '..\..\Tocsg.Lib\VCL\Other\EM.WbemScripting_TLB.pas',
|
|
|
|
DeCrmHeInstMain in 'DeCrmHeInstMain.pas' {DlgeCrmHeInstMain},
|
|
Define in 'Define.pas',
|
|
ProcessUninstall in 'ProcessUninstall.pas',
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
|
|
Tocsg.Firewall in '..\..\Tocsg.Module\MgWinFW\Tocsg.Firewall.pas',
|
|
NetFwTypeLib_TLB in '..\..\Tocsg.Module\MgWinFW\NetFwTypeLib_TLB.pas',
|
|
CrmLogger in '..\EXE_eCrmHomeEdition\CrmLogger.pas',
|
|
Condition in '..\LIB_Common\Condition.pas',
|
|
CrmUtil in '..\LIB_Common\CrmUtil.pas',
|
|
DefineHelper in '..\EXE_eCrmHeHelper\DefineHelper.pas',
|
|
GlobalOutAddInDefine in '..\DLL_BS1OutlookAddIn\GlobalOutAddInDefine.pas',
|
|
DUserInfoAgree in 'DUserInfoAgree.pas' {DlgUserInfoAgree},
|
|
ManagerModel in '..\EXE_eCrmHomeEdition\Manager\ManagerModel.pas',
|
|
Lang in 'Lang.pas',
|
|
ManagerPolicy in '..\EXE_eCrmHomeEdition\Manager\ManagerPolicy.pas';
|
|
|
|
{$R 'IncRes.res', 'IncRes.rc'}
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
mtx: TTgMutex;
|
|
lang: TTgLang;
|
|
begin
|
|
Guard(mtx, TTgMutex.Create(MUTEX_INSTALLER));
|
|
if mtx.MutexState <> msCreateOk then
|
|
exit;
|
|
|
|
Guard(lang, TTgLang.Create);
|
|
if GetRunExeName.ToUpper.StartsWith('KR') then
|
|
lang.SetLanguage(lkKor)
|
|
else if GetRunExeName.ToUpper.StartsWith('EN') then
|
|
lang.SetLanguage(lkEng)
|
|
else if GetRunExeName.ToUpper.StartsWith('CN') then
|
|
lang.SetLanguage(lkCN)
|
|
else if GetRunExeName.ToUpper.StartsWith('TW') then
|
|
lang.SetLanguage(lkTW)
|
|
else
|
|
case GetUserDefaultLangID of
|
|
$412 : lang.SetLanguage(lkKor);
|
|
$409 : lang.SetLanguage(lkEng);
|
|
$804 : lang.SetLanguage(lkCN);
|
|
$404,
|
|
$C04,
|
|
$1404 : lang.SetLanguage(lkTW);
|
|
else lang.SetLanguage(lkEng);
|
|
end;
|
|
|
|
Application.Initialize;
|
|
//{$IF Defined(_KR_) or Defined(_LX_)}
|
|
{$IFDEF _SILENT_}
|
|
Application.ShowMainForm := false;
|
|
{$ELSE}
|
|
Application.MainFormOnTaskbar := True;
|
|
{$ENDIF}
|
|
//{$IFEND}
|
|
Application.CreateForm(TDlgeCrmHeInstMain, DlgeCrmHeInstMain);
|
|
Application.Run;
|
|
end.
|