65 lines
2.0 KiB
Plaintext
65 lines
2.0 KiB
Plaintext
program SunkAssister;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
System.SysUtils,
|
|
Tocsg.Safe,
|
|
Tocsg.Shell,
|
|
Tocsg.Path,
|
|
Tocsg.Win32,
|
|
DAstMain in 'DAstMain.pas' {DlgKoAstMain},
|
|
Define in 'Define.pas',
|
|
DConfig in 'Config\DConfig.pas' {DlgConfig},
|
|
ManagerConfig in 'Config\ManagerConfig.pas',
|
|
FShotcutForder in 'Shotcut\FShotcutForder.pas' {FrmShotcutForder: TFrame},
|
|
DAddShotcutForder in 'Shotcut\DAddShotcutForder.pas' {DlgAddShotcutFolder},
|
|
DShowAudioVolume in 'Config\DShowAudioVolume.pas' {DlgShowAudioVolume},
|
|
DAngle in 'MessageBox\DAngle.pas' {DlgAngle},
|
|
FWindowPage in 'WindowPage\FWindowPage.pas' {FrmWindowPage: TFrame},
|
|
ManageWindowPage in 'WindowPage\ManageWindowPage.pas',
|
|
DKeyInput in 'View\DKeyInput.pas' {DlgKeyInput},
|
|
DCloseQuestion in 'MessageBox\DCloseQuestion.pas' {DlgCloseQuestion},
|
|
DLockScreen in 'Lock\DLockScreen.pas' {DlgLockScreen},
|
|
DefineWndMon in '..\..\WndMsgHook\DefineWndMon.pas',
|
|
CtrlWndActiveHook in '..\..\WndMsgHook\EXE_WndMsgHook\CtrlWndActiveHook.pas',
|
|
DefineKeyMon in '..\..\KeyMon\DefineKeyMon.pas',
|
|
KeyMonDLL in '..\..\KeyMon\EXE_KeyMon\KeyMonDLL.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
sExeUpdate: String;
|
|
mtx: TTgMutex;
|
|
|
|
begin
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
//{$IFDEF DEBUG}
|
|
// if DebugHook = 0 then
|
|
// begin
|
|
//{$ENDIF}
|
|
// sExeUpdate := GetCurrentPathDir + APP_UPDATE;
|
|
// if FileExists(sExeUpdate) then
|
|
// ExecutePath(sExeUpdate, Format('/pjname %s /exename %s',
|
|
// [FAMILY_NAME, APP_EXECUTE]));
|
|
//{$IFDEF DEBUG}
|
|
// end;
|
|
//{$ENDIF}
|
|
|
|
{$IFNDEF DEBUG}
|
|
sExeUpdate := GetRunExePathDir + APP_UPDATE;
|
|
if FileExists(sExeUpdate) then
|
|
ExecutePath(sExeUpdate, Format('/pjname %s /exename %s',
|
|
[FAMILY_NAME, APP_EXECUTE]));
|
|
{$ENDIF}
|
|
|
|
Guard(mtx, TTgMutex.Create(APP_MUTEX));
|
|
if mtx.MutexState = msAlreadyExist then
|
|
exit;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgKoAstMain, DlgKoAstMain);
|
|
Application.Run;
|
|
end.
|