Mengganti Icon Folder

hide

Google Search Results

You arrived here after searching for the following phrases:

• cara
• mengganti
• icon
• delphi
• 7

Click a phrase to jump to the first occurrence, or return to the search results.

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.


Artikel Mengganti Icon Folder ini dipersembahkan oleh Klik-Kanan.com. Kunjungi Klik-Kanan.com untuk informasi seputar komputer dan internet.