if FindWindow(nil, PChar('seu programa')) > 0 then
begin
ShowMessage('Já existe uma cópia do aplicativo em execução! ');
Application.Terminate;
Exit;
end
else
Application.Title := 'seu programa';
Sempre consulte as mensagens antigas, da lista, antes de perguntar. Você ganha
tempo.
Bom trabalho!
Jefferson
----- Original Message -----
From: Adenes I. Freire Junior
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 24, 2007 9:24 AM
Subject: [delphi-br] Executando uma única cópia do aplicativo.
Como faço para evitar executar + de uma copia do aplicativo?
----------
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 000768-1, 24/08/2007
Tested on: 24/8/2007 09:24:57
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
