Exemplo:
(Na inicialização do projeto)
Var
ProgAtivo : HWND;
begin
Application.Initialize;
ProgAtivo := FindWindow(Nil, PChar('Título do Programa'));
if ProgAtivo = 0 then
// Programa não está em execução
else
// Programa está em execução
[]
Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br
----- Original Message -----
From: "Guigos" <[EMAIL PROTECTED]>
To: "Delphi-Br" <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, August 02, 2005 9:55 AM
Subject: [delphi-br] Programa em execução
Ola, galera...
estou como uma dúvida, como faço pra verificar minha aplicação se já está
aberta, no caso minha aplicação fica na taskbar... ao lado do relogio do
windows...(trayIcon) .
Grato pela resposta.
Atensiosamente
Luís Rodrigo
[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
