Impedir 2 ou mais instâncias simultâneas

[bnobre]

Olá a todos,

Tenho tentado alguns códigos para impedir duas ou mais instâncias simultâneas de meu aplicativo, mas sem muito sucesso em versões diferenciadas do Windows.

O ACBr teria algum componente ou função que fizesse isso?

Desde já agradeço a atenção

[Daniel Simoes]

Basta usar um Mutex

Veja o código de ACBrMonitor.lpr

.....

   {$IFDEF MSWINDOWS}
   if UmaInstancia then
   begin
     CreateMutex(nil, True, 'ACBrMonitor');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
        MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
            mtError, [mbOK], 0);
        Application.Terminate;
        exit ;
     end;
   end;
  {$ENDIF}

  Application.CreateForm(TFrmACBrMonitor, FrmACBrMonitor) ;
  Application.Run;
end.