Menyembunyikan icon pada desktop

Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan icon pada desktop melalui program yang dibuat dengan Delphi.
Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat di sini.

Langka-langnya adalah :
1. Buatlah sebuah form sepeti pada gambar 17 berikut ini.

Gambar 17

2. Pada tombol Hiden Icon masukan code berikut ini.

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
end;

pada tombol Show icon codenya adalah sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
end;

3. Jalankan program yang telek dibuat.