Menyembunyikan Icon Pada Desktop

Jumat, 30 Januari 2009

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.

 

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 telah dibuat dan lihat hasil kerja kamu.