Para fechar o programa tente desta forma.
HNDMens := FindWindowEx(0,0,nil,PChar(fPrograma));
If Not isWindow(HNDMens) then
Begin //Senão esta em Execução
WinExec(Pchar(fPath+'\'+fPrograma+'.EXE'),0);
End Else
Begin //Em Execução
//FINALIZA PROGRAMA
PostMessage(HNDMens,WM_QUIT,0,0);
Sleep(1000);
Application.ProcessMessages;
End;
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de willer
Enviada em: sexta-feira, 8 de dezembro de 2006 17:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Atualização automática
Valeu pela dica. Vou fazer desse jeito. E é usuário quem fecharia o programa
par que a atualização fosse feita. Gostei da idéia, vou implelentar.
----- Original Message -----
From: Luiz Escobar
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Sent: Friday, December 08, 2006 4:35 PM
Subject: Re: [delphi-br] Atualização automática
Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a
perguntinha basica pro usuario, "vc tem uma atualziação para este software,
deseja fazer agora ?" e que a pargunta se repita tipo a cada 30 minutos, se não
o usuário vai querer te matar... ehhehehe
quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora não
lembro.... desculpe...
Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br <http://www.megasistema.com.br>
----- Original Message -----
From: willer
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Sent: Friday, December 08, 2006 3:22 PM
Subject: Re: [delphi-br] Atualização automática
Só tenho dúvida na lógica.
Já consigo verificar se há atualização e até baixar os novos arquivos, só não
estou conseguindo fechar o executável e abró-lo novamente com a nova versão.
----- Original Message -----
From: Marcelo Hoepfner (SI)
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Sent: Friday, December 08, 2006 1:57 PM
Subject: RES: [delphi-br] Atualização automática
Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.
Marcelo Hoepfner
msn: [EMAIL PROTECTED] <mailto:mehvsc%40hotmail.com>
_____
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ]
Em nome de Andrei Luís
Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: Re: [delphi-br] Atualização automática
Willer,
Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
que será executado através de ícones na área de trabalho, etc, que faz
a atualização quando necessário e chama o 2º executável que é o
sistema em si.
[]
Andrei
Em 08/12/06, willer<[EMAIL PROTECTED] <mailto:willer%40personalcom.com.br>
<mailto:willer%40personalcom.com.br> > escreveu:
> Como faço para fechar o meu programa após ter aberto outro?
> Estou implementando uma rotina de atualização automáticxa que deverá fzer
> isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa
> auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;
>
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1910 (20061208) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br <http://www.eset.com.br>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1911 (20061208) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br <http://www.eset.com.br>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
