[ajuda] fechar janelas do windows

[brhvitor6]

Ola pessoal gostaria de saber como fechar uma janela do windows...

tentei:

Var
janela : Handle;
begin
Janela := (FindWindow(nil,'nome da janela');
closewindow(janela);

ou windowclose não me lembro...

So que ele minimiza em veiz de fechar.

[s2pid]

Olá amigão!

Coloque em algum evento , por exemplo em algum click de algum botão:

var
h : Thandle;
begin
while h <> 0 do
begin
h := FindWindow('notepad',nil);
SendMessage(h,WM_SYSCOMMAND,SC_CLOSE,0);
end;
CloseHandle(h);
end;

enquanto ele achar o bloco de notas ele o fecha ^^

Abração

[brhvitor6]

não.. isso seria para fechar programas... eu gostaria de fechar pastas abertas.