Além disso, complementando o que o Jean disse, ainda dá pra focar no programa usando SendMessage. Mando um exemplo qdo voltar pra frente do computador.
Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 29/06/2010, às 14:59, Jean Barreiros <delphij...@yahoo.com.br> escreveu: > 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] > > [As partes desta mensagem que não continham texto foram removidas]