Veja se o código abaixo se serve.
insira no arquivo .dpr;
var
Hwnd: Thandle;
begin
Hwnd := FindWindow ('TExeType', 'TituloPrograma');
if Hwnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TPrograma, Programa);
Application.Run;
end
else
begin
MessageDlg ('Já existe uma instãncia deste programa, verifique por
favor!!',mtinformation,[mbok], 0);
SetForegroundWindow (Hwnd);
end;
end.
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: delphij...@gmail.com
e-mail: delphij...@yahoo.com.br
________________________________
De: Albuquerque <sys.e...@yahoo.com>
Para: delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br
Enviadas: Terça-feira, 29 de Junho de 2010 14:52:19
Assunto: [delphi-br] Como verificar se há EXE aberto ?
Boa tarde,
Quando meu aplicativo for iniciado ele deverá abrir automaticamente um outro
executável que não foi desenvolvido por mim (ex: NOTEPAD.EXE)
Como faço no meu aplicativo para ele só abrir o outro programa (notepad.exe)
desde que este por sua vez não se encontre aberto ?
(isto é, se já estiver aberto não precisarei dar o comando para abri-lo)
Desde já agradeço a atenção dispensada.
Att.
Albuquerque
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
