Mengganti Icon Folder

21:30 | Labels: DELPHI

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, jangan lupa untuk menambahkan uses IniFiles; di bawah implementation.