중복 실행 방지 델파이

dpr pas 에 코딩합니다.

uses 절에 windows 추가 합니다.

 

uses  
  Forms,windows,  
Unit1 in 'Unit1.pas' {Form1};  
var  
Mutex : THandle;  
{$R *.RES}  
begin  
  Mutex := CreateMutex(nil, True, 'YourMutex');  //실행파일명
  if (Mutex <> 0 ) and (GetLastError = 0) then begin  
    Application.Initialize;  
    Application.CreateForm(TForm1, Form1);  
    Application.Run;  
    if Mutex <> 0 then CloseHandle(Mutex);  
  end;  
end.