[팁] 프로그램 재실행 방지

 

program setup;

uses
  Forms,
  Windows,
  SetupMain in 'SetupMain.pas' {SetupMainForm},
  Dlg in 'Dlg.pas' {DlgForm},
  Config in 'Config.pas' {ConfigForm},
  Info in 'Info.pas' {InfoForm},
  NInput in 'NInput.pas' {NameInputForm},
  NewCfg in 'NewCfg.pas' {NewForm},
  FireMon in 'FireMon.pas' {Form1},
  ComSetup in 'ComSetup.pas' {ComSetupForm};

{$R *.RES}

{ 아래의 코드부터 }
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, '원하는 이름');
  if (Mutex <> 0) and (GetLastError = 0) then
  begin
      Application.Initialize;
      Application.Title := 'Speaker Select System Setup V3.12';
      Application.CreateForm(TSetupMainForm, SetupMainForm);
      Application.Run;
      if (Mutex <> 0) then CloseHandle(Mutex);
  end;
end.
{ 끝 }