MINIMIZE SEMUA WINDOWS ~ KLIKQ

salam klikq mas2..mbak2 semuanya.....

sering kita merasa malas untuk meminimize program yg kita buka,terlebih program yg kita buka lebih dari 1 program,tentu akan membutuhkan waktu yg lumayan lama bukan jika kita harus menutupnya satu demi satu....disini delphi memiliki fasilitas yg dapat mempermudah meminimize program anda...disini anda harus mencari handle windows yg sedang aktif...kemudian anda dapat mengirimkan pesan dengan postmessage untuk meminimize semuanya....ah mas teori aja kelamaan...keburu ngantuk neh....hhehhehe..ywd langsung aja praktekin ini.....

buka new project delphi...kemudian isikan code dibawah ini di event onclick button...

procedure TForm1.Button1Click(Sender: TObject);
var
h : HWND;
begin
h := Handle;
while h > 0 do
begin
    {mengecek visibility state dari windows}
    if IsWindowVisible(h) then
      //minimize windows
        PostMessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
        //mencari handle dari windows selanjutnya
        h:= GetNextWindow(h,GW_HWNDNEXT);
end;
end;

end.

klik run....