Mengganti icon folder

Bagi Anda yang menyukai keindahan, default icon folder pada Windows yang berwarna kuning tentunya sangat "menyebalkan". Padahal dengan trik sederhana Anda dapat mengganti icon tersebut dengan icon lain yang Anda sukai. Caranya cukup mudah saja, Anda tinggal membuat file desktop.ini pada folder yang akan diganti iconnya. Pada file desktop.ini tersebut tambahkan baris berikut:

[.ShellClassInfo]
IconFile=file_icon.ico
IconIndex=0
InfoTip=keterangan

Selanjutnya ubah properties folder tersebut menjadi System. Dengan Delphi, Anda dapat menuliskannya sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
   with TINIFile.Create('C:\Data\desktop.ini') do
   try
      WriteString('.ShellClassInfo', 'IconFile',       'C:\Data\Icon\Apple Logo.ico');
      WriteString('.ShellClassInfo', 'IconIndex', '0');
      WriteString('.ShellClassInfo', 'InfoTip', 'Tulis
      deskripsi di sini');
      
      UpdateFile;
   finally
      Free;
   end;

   SetFileAttributes(PChar('C:\Data'),    FILE_ATTRIBUTE_SYSTEM);
end;

Contoh di atas akan mengganti icon pada folder C:\Data. Adapun icon yang akan digunakan adalah C:\Data\Icon\Apple Logo.ico.

Terakhir, jJangan lupa untuk menambahkan uses IniFiles; di bawah implementation.

Download Contoh