(Resolvido) Fechar Exe Pelo Delphi.

[Paulo Nobre]

Tenho um programa, que num determinado menu, abre um EXE.

Quando fecho o programa o EXE continua aberto.

 

Como faço para ao fechar o programa, fechar também o exe?

Qual o código para fechar o exe independente do programa?

 

Paulo Nobre

[Paulo Nobre]

O código que encontrei por aí não funciona nem a pau:

PostMessage(FindWindow(nil,'Nome do progama'),WM_CLOSE,0,0);

uma variação, que também não funciona é

SendMessage(FindWindow(nil,'Nome do progama'),WM_CLOSE,0,0);

Alguém já usou isto?

Paulo Nobre

[s3c]

FindWindow não deve estar retornando o Handle da janela.

Seu segundo parâmetro não o nome do programa e sim o caption da janela.

Tente o seguinte:

var H:THandle;

begin

H := FindWindow(nil,'Caption da Janela');

if H > 0 then

SendMessage(H,WM_CLOSE,0,0);

end;

[Paulo Nobre]

s3c,

funcionou

Obrigado

Apenas o seguinte: nunca funciona com o nome do programa ou funciona em alguns casos?

Paulo Nobre

[s3c]

O FindWindow retorna o Hande de uma janela e você pode passar o nome da classe no primeiro parâmetro, ou o caption da janela no segundo parâmetro, ou os dois.

O nome do programa não tem nada a ver com FindWindow a não ser que coincida.

[yohken]

Amigo tente usar isso

 

Winexec('CMD.exe /c taskkill PROGRAMA.EXE',SW_HIDE);

 

Abraço!