[delphi-br] Fechar uma Janela, ou Finalizar um Processo

[Tiago de Assis Pimenta]

Galera, agora preciso finalizar um processo, ou fechar uma determinada
janela para fazer o atualizador do meu sistema. Peguei um código de um amigo
meu, mas esse não rola, pois ele está tentando finalizar o Windows, e
aparece a tela de Hibernar, Desligar ou Reiniciar o Windows.

 

procedure Tfrmprincipal.FechaSistema;

var

            h : THandle;

begin

  h := findwindow(nil, pchar(paramstr(1)));

  if h > 0 then

            sendmessage(h, WM_CLOSE, 0, 0);

end;

 

O processo chama LTACorpore.exe.



[As partes desta mensagem que não continham texto foram removidas]