Mengganti Icon Folder

Sumber: Klik kanan

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');
9.       UpdateFile;
10.    finally
11.       Free;
12.    end;
14.    SetFileAttributes(PChar('C:\Data'),    FILE_ATTRIBUTE_SYSTEM);
15. 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.