Algumas solucoes retirados de arquivos de dicas:::::veja qual lhe serve....
1 Forma:
{ - Coloque um botão no form e altere seu evento OnClick
conforme abaixo: }
procedure TForm1.Button1Click(Sender: TObject);
var
Janela: HWND;
begin
Janela := FindWindow('OpusApp'), nil);
if Janela = 0 then
ShowMessage('Programa não encontrado')
else
PostMessage(Janela, WM_QUIT, 0, 0);
end;
Observações
Este exemplo fecha o MS Word 97 se estiver aberto. A mensagem WM_QUIT fecha
o programa da forma "ignorante". Isto significa que se houver dados não
salvos, o programa a ser fechado não oportunidade para salvá-los. Uma
alternativa mais suave é trocar a mensagem WM_QUIT por WM_CLOSE.
2 Forma:
Procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(nil, 'Calculadora.exe'), WM_CLOSE,0,0);
end;
3 Forma:
Inclua na seção uses: Windows
procedure TForm1.Button1Click(Sender: TObject);
begin
FatalAppExit(0, 'Erro fatal na aplicação.');
end;
Observações
A função FatalAppExit é uma API do Windows. Esta mostra uma caixa de diálogo
(normalmente branca) com a
mensagem passada no segundo parâmetro. Quando a caixa de diálogo é fechada a
aplicação é finalizada.
O evento OnCloseQuery dos forms não são chamados quando usamos esta função.
4 Forma
procedure TForm1.Button1Click(Sender: TObject);
var
Win : THandle;
begin
Win := FindWindow(nil,'Form1');
if Win <> 0 then
PostMessage(Win,WM_CLOSE,0,0)
else
ShowMessage('Programa não encontrado');
end;
//Obs. No exemplo acima foi utilizado o POSTMESSAGE para enviar uma
mensagem WM_CLOSE
para a janela principal.
----- Original Message -----
From: "Diego" <[EMAIL PROTECTED]>
To: "Delphi Grupos" <[EMAIL PROTECTED]>
Sent: Tuesday, January 11, 2005 1:54 AM
Subject: [delphi-br] Como finalizo uma tarefa pelo Delphi?
Pessoal,
estou precisando finalizar uma tarefa a partir do delphi (ctrl + alt + del)
e não estou achando referencia de como fazer isso.
Alguém como proceder? Estou querendo finalizar o explorer.exe durante minha
aplicação e depois inicia-lo novamente (no término).
Obrigado
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
