Segundo o "mestre" Marco Cantù :
var
Hwnd: THandle;
begin
Hwnd := FindWindow ('TForm1', nil);
if Hwnd = 0 then // Aplicaçao não está executando
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else // Apliação já está executando, exibe
SetForegroundWindow (Hwnd)
end.
Luiz Kohl
www.byKohl.com
Messenger: [EMAIL PROTECTED]
Skype: byKohl
Fone: 27-8115-5692
Vitória - ES - Brasil
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, January 18, 2005 4:15 PM
Subject: [delphi-br] Programa em Execução
pessoal, como faço para saber um programa (telas.exe) está em execução ou
não?????
At+
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
