중복실행 방지 - Mutex

in project file
---------------------------------------------------------
uses
  Windows

var
   HMutex: LongInt;
begin
  HMutex := CreateMutex(NIL,TRUE,'PuttysDuplicate');
  if (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    Exit;
  end;