Buscar

Fechar outro programa

Código

Fechar outro programa
1. Exemplo de como fechar a calculadora a partir do texto da janela
 
Procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(nil, 'Calculadora'), WM_CLOSE,0,0);
end;
 
2. Exemplo de como fechar a calculadora a partir da classe
 
Procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow('scicalc', nil), WM_CLOSE,0,0);
end;
Obs.: A classe de um programa pode ser descoberta usando o programa Winsight32 que vem com o delphi.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 03/02/05
Por: Ricardo L. S.
Visualizada: 2852 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009