Sembunyikan Item Desktop

Salam klikq mas2..mbak2 semuanya...

sering kita merasa risih sama item yang tampil pada desktop kita,terlebih item itu banyak....pastinya akan semakin membuat anda risih,ruwet dan sebagainya.....dengan tips di bawah ini kita akan menyembunyikan item yang ada di desktop kita....oke langsung aja...

buka new project kemudian isikan code dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_hide);
end;

kode diibawah ini untuk menampilkan item:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_show);
end;

end.









klik run
sembunyikan

tampilkan

selamat mencoba cuy.....hhhehhee

salam klikq