프로그램 중복 실행 방지

프로그램 중복 실행 방지

 

program Project1;

uses

Forms,Windows,

Unit1 in 'Unit1.pas' {fmMain};

var

Mutex : Thandle;

{$R *.res}

begin

Mutex := CreateMutex(nil,True,'YourMutex');

if (Mutex <> 0 ) and (GetLastError = 0 ) then

begin

Application.Initialize;

Application.CreateForm(TfmMain, fmMain);

Application.Run;

if Mutex <> 0 then CloseHandle(Mutex);

end;

end.