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.

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

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