Menyembunyikan Icon Pada Desktop

Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan icon padadesktop melalui program yang dibuat dengan Delphi.

Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat di sini.

procedure TForm1.Button1Click(Sender: TObject);

1. begin
2.      ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
3. end;
4.  
5. procedure TForm1.Button2Click(Sender: TObject);
6. begin
7.      ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
8. end;

Sumber : klik-kanan

Posted in: Trik Komputer