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]