Fórum Como Impedir Um Executável Ser Instânciado Mais de Uma Vez ? #179577

unit Unit1;

uses
  Windows, Dialogs, Sysutils;

{....}
implementation

{....}

var
  mHandle: THandle;

initialization
  mHandle := CreateMutex(nil, True, ´XYZ´);
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    ShowMessage(´Já há uma instância deste programa.´);
    halt;
  end;

finalization
  if mHandle <> 0 then CloseHandle(mHandle)
end.

procedure TForm1.FormCreate(Sender: TObject);
var
  Sem: THandle;
begin
  Sem := CreateSemaphore(nil, 0, 1, ´NOME_DO_PROGRAMA´);
  if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
  begin
    CloseHandle(Sem);
    ShowMessage(´Já há uma instância deste programa.´);
    Halt;
  end;
end;