중복 실행 방지

uses
  Forms,
  windows,

...

var
 hMutex : LongInt;
begin
 hMutex := OpenMutex( MUTEX_ALL_ACCESS, False, 'aaa1' );
 If hMutex <> 0 Then
 Begin
   CloseHandle( hMutex );
   Exit;
 End;
hMutex := CreateMutex( Nil, False, 'aaa1');

 Application.Initialize;