Jump to content

click.png click.png click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Impedir 2 ou mais instâncias simultâneas


doidopb
Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 966 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

  • Membros Pro

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

Link to comment
Share on other sites

  • Fundadores
  • Solution

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.   

 

  • Like 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.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.