Buscar

Mutex - Não deixar que sua aplicação seja executada mais do que uma vez.

Código

o DPR de sua aplicação:

program Cobrancas;

uses
Forms,
Controls,
Windows,

{$R *.res}

var
hMutex: THandle;

begin
hMutex := CreateMutex(nil, true, PChar('[{23B1EEFF-4775-4FA9-9C5-6BFEAC48F551}]'));
if (hMutex <> 0) and (GetLastError = 0) then
begin
Application.Initialize;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;
end
else
MensagemDeAvisoH('Já Existe Uma Instância do Aplicativo Rodando...');
end.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 14/07/09
Por: Herminio L. Paes Júnior
Visualizada: 6172 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009