Menyembunyikan Item Pada Desktop Dengan Delphi

Anda dapat menempatkan banyak item seperti shotcut, file maupun folder pada desktop Windows anda, tetapi jika anda menempatkan terlalu banyak item akan membuat tampilan desktop menjadi ruwet dan tidak menarik lagi. Dengan tips dibawah ini, maka anda dapat menyembunyikan semua item  pada desktop. Dengan demikian desktop anda akan menjadi bersih kembali. Langkah – langkahnya adalah sebagai berikut :

1. Buka Delphi
2. Buat projek baru
3. Tambahkan dua TButton kedalam lembar projek
4. Klik 2 kali pada TButton1 dan masukan kode dibawah ini :
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   
   
   ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
   
   
   end;
   kode diatas digunkan untuk menyembunyikan item pada desktop 
5. Klik 2 kali pada TButton2 dan masukan kode dibawah ini :
   procedure TForm1.Button2Click(Sender: TObject);
   begin
   
   
   ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
   
   
   end;
   kode diatas digunakan untuk menampilkan  kembali item pada desktop :
6. Tekan tombol F9/Compile untuk melihat hasilnya
   Selesai. Selamat mencoba

Menyembunyikan Item Pada Desktop Dengan Delphi 2014-08-22T01:23:00-07:00 Rating: 4.5 Diposkan Oleh: Abu Masail