Ir para conteúdo
  • Cadastre-se

dev botao

Impedir 2 ou mais instâncias simultâneas


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 2202 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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

  • Fundadores
  • Solution
Postado

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.   

 

  • Curtir 5
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...