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);

1. begin
2.    with TINIFile.Create('C:\Data\desktop.ini') do
3.    try
4.       WriteString('.ShellClassInfo', 'IconFile', 'C:\Data\Icon\Apple Logo.ico');
5.       WriteString('.ShellClassInfo', 'IconIndex', '0');
6.       WriteString('.ShellClassInfo', 'InfoTip', 'Tulis
7.      deskripsi di sini');
8.       UpdateFile;
9.     finally
   
10.     Free;
    
11.    end;
12.    SetFileAttributes(PChar('C:\Data'),    FILE_ATTRIBUTE_SYSTEM);
13. end;
    
    

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

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