95 lines
3.1 KiB
Plaintext
95 lines
3.1 KiB
Plaintext
library eCrmHeServiced;
|
|
|
|
uses
|
|
Windows,
|
|
Vcl.SvcMgr,
|
|
System.SysUtils,
|
|
System.Classes,
|
|
Tocsg.Trace in '..\..\Tocsg.Lib\VCL\Tocsg.Trace.pas',
|
|
Tocsg.Safe in '..\..\Tocsg.Lib\VCL\Tocsg.Safe.pas',
|
|
Tocsg.Path in '..\..\Tocsg.Lib\VCL\Tocsg.Path.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.Obj in '..\..\Tocsg.Lib\VCL\Tocsg.Obj.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.Win32 in '..\..\Tocsg.Lib\VCL\Tocsg.Win32.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.Shell in '..\..\Tocsg.Lib\VCL\Tocsg.Shell.pas',
|
|
Tocsg.Service in '..\..\Tocsg.Lib\VCL\Tocsg.Service.pas',
|
|
Tocsg.Registry in '..\..\Tocsg.Lib\VCL\Tocsg.Registry.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',
|
|
|
|
superobject in '..\..\Tocsg.Lib\VCL\SuperObject\superobject.pas',
|
|
Tocsg.Exception in '..\..\Tocsg.Lib\VCL\Tocsg.Exception.pas',
|
|
aes_type in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_type.pas',
|
|
aes_cbc in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_cbc.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',
|
|
|
|
Tocsg.Binary in '..\..\Tocsg.Lib\VCL\Tocsg.Binary.pas',
|
|
Tocsg.Hash in '..\..\Tocsg.Lib\VCL\Tocsg.Hash.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.MD5 in '..\..\Tocsg.Lib\VCL\EncLib\EM.MD5.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.WtsApi32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.WtsApi32.pas',
|
|
|
|
ServiceRunDLL in 'ServiceRunDLL.pas',
|
|
SeCrmHeMain in 'SeCrmHeMain.pas' {SvcCrmHe: TService},
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas';
|
|
|
|
{$R *.res}
|
|
|
|
exports
|
|
ServiceMain,
|
|
InstallServices_dll,
|
|
UninstallServices_dll;
|
|
|
|
var
|
|
trace: TTgTrace;
|
|
|
|
procedure MyDllProc(Reason: Integer);
|
|
begin
|
|
case Reason of
|
|
DLL_THREAD_ATTACH:
|
|
begin
|
|
// trace := TTgTrace.Create('C:\Program Files\Tocsg\eCrmHome\' + 'Log\',
|
|
// ExtractFileName(CutFileExt(GetRunExePath)) + '.log', true);
|
|
//
|
|
// trace.T('Beign..');
|
|
end;
|
|
|
|
DLL_THREAD_DETACH:
|
|
begin
|
|
|
|
end;
|
|
|
|
DLL_PROCESS_DETACH:
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DLLProc := @MyDllProc;
|
|
|
|
if not Application.DelayInitialize then
|
|
Application.Initialize;
|
|
Application.CreateForm(TSvcCrmHe, SvcCrmHe);
|
|
end.
|