Otwarte okna

Jak w Delphi wykruć czy jest otwarte jekies okno badz uruchomiony program i zminimalizowac je????--Bednar

procedure TForm1.Button1Click(Sender: TObject);
var
H : THandle;
begin
H := FindWindow(nil, 'xxx'); *szukanie okna o nazwie xxx
ShowWindow(H, SW_MINIMIZE); * minimalizacja okna
end;

Mam nadzije ze dobrze zrozumiałem...--Ozyrys Pozdrawiam {hello}
Delphi 6

Dzieki wielkie!! ale zakładamy, że nie wiem jakie okno jest otwarte!! - Sorry że marudze--Bednar

ozyrys napisał:

&gtprocedure TForm1.Button1Click(Sender: TObject);
&gtvar
&gt H : THandle;
&gtbegin
&gt H := FindWindow(nil, 'xxx'); *szukanie okna o nazwie xxx
&gt ShowWindow(H, SW_MINIMIZE); * minimalizacja okna
&gtend;
&gt

Zamiast xxx wpisz nazwę swojego okna i użyj funkcję GetWindow wstaw wartość pokrewieństwa NEXT lub odpowiednio inne i umieść to w pętli.
Będziesz miał dostęp do wszystkich okien (no prawie).

Wybierzesz sobie to, które chcesz zamknąć naprzykład.