Menyembunyikan Icon Pada Desktop (delphi)

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.

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;