Fechar outro aplicativo via delphi

Question

ol� companheiro do clube, gostaria que algu�m me explique como fa�o para fechar um aplicativo via delphi, consegui v�rias fun��es, mas todas s� fecha pelo t�tulo da aplica��o, quero saber como fecho pelo nome do sistema que est� rodando ex. internet explorer

Skaarj · Answer

121 - Fechar outro programa1. Exemplo de como fechar a calculadora a partir do texto da janela Procedure TForm1.Button1Click(Sender: TObject);beginPostMessage(FindWindow(nil, �Calculadora�), WM_CLOSE,0,0);end; 2. Exemplo de como fechar a calculadora a partir da classe  Procedure TForm1.Button1Click(Sender: TObject);beginPostMessage(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. [quote:bd8fa9d4fb] By Lloyd Dickinson[/quote:bd8fa9d4fb]...

Marco Salles · Answer

Blz...

Vergaradan · Answer

Ol� pessoal! Sou novo no f�rum e estou com uma d�vida relacionada a este t�pico: finalizando aplicativos externos.

Digamos que eu tenha v�rias aplica��es abertas, inclusive a minha em delphi. Tem como, por esta aplica��o, eu finalizar todas as outras, sem que sejam exibidas mensagens de confirma��o?

O que eu quero, basicamente, � que minha aplica��o delphi feche todos os aplicativos mas n�o �se feche�.

Valeu!

Vitor Alcantara · Answer

pra retirar a confirma��o troque o wm_close por wm_quit.

Procedure TForm1.Button1Click(Sender: TObject); 
begin 
  PostMessage(FindWindow(nil, �Calculadora�), WM_QUIT,0,0); 
end;

Pra listar todas as aplica��es em um ListBox menos a sua tenta utilizar essa fun��o.

Function EnumWindowsProc (Wnd: HWND; lb: TListBox): BOOL; stdcall;
var caption: Array [0..128] of Char;
hnd1,hnd2:THandle;
begin

Result := True;
hnd1 := findWindow(nil,�SisLanHouse - DesenSoftVitor�);//Nome da minha aplica��o
hnd2 := FindWindow(nil,�SisCliente�);//Nome da minha segunda aplica��o
if IsWindowVisible(Wnd) and
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) and
  (wnd <> hnd1) and (wnd <> hnd2)
then
begin
  SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
  if Caption <> �� then
  
  lb.AddItem ( caption,lb);
end;
end;

Pra preencher o ListBox com os nomes das aplica��es abertas.

procedure TFormLogin_FrmCliente.SpeedButton3Click(Sender: TObject);
begin
  ListBox1.Clear;
  EnumWindows( @EnumWindowsProc, integer( listBox1 ));
end;

Pra fechar todas as aplica��es.

procedure TFormLogin_FrmCliente.SpeedButton2Click(Sender: TObject);
var
  x:integer;
  hnd:Thandle;
begin
  for x := 0 to Listbox1.Count - 1 do
  begin
    hnd := FindWindow(nil,Pchar(ListBox1.Items.Strings[x]));
    if hnd <> 0 then
    if UpperCase(ListBox1.Items.Strings[x]) <> �SISCLIENTE�   then
    begin
      PostMessage(FindWindow(nil,Pchar(ListBox1.Items.Strings[x])),WM_QUIT,0,0);
      
    end;
  end;
  ListBox1.Clear;
  EnumWindows( @EnumWindowsProc, integer( listBox1 ));
  SpeedButton3.Click;

end;

F�rum Fechar outro aplicativo via delphi #218723