Zmiana ikony, nazwy i pojawiającej się podpowiedzi kosza

Po kliknięciu przycisku Button1 poniższa funkcja zmienia domyślną ikonę kosza i ikonę pełnego kosza na ikonę zapisaną na dysku C pod nazwą koszfull.ico, ikonę pustego kosza na ikonę zapisaną na dysku C pod nazwą koszempty.ico. Nazwa kosza, którą widzimy na pulpicie ("Kosz") zostaje zmieniona na napis "Śmieciarka", a podpowiedź, która pojawia się po najechaniu myszą na kosz zostaje zmieniona na napis "Nie wolno nikomu grzebać w moich śmieciach!".

Unit1.cpp

#include <Registry.hpp>
void __fastcall
TForm1::Button1Click(TObject *Sender)
{
   TRegistry& Rejestr = *new TRegistry();
   Rejestr.RootKey = HKEY_CLASSES_ROOT;
   Rejestr.OpenKey("CLSID\\{645FF040-5081-101B-9F08-00AA002F954E}", false);
   Rejestr.WriteString("", "Śmieciarka");
   Rejestr.WriteString("InfoTip", "Nie wolno nikomu grzebać w moich śmieciach!");
   Rejestr.CloseKey();

   Rejestr.OpenKey("CLSID\\{645FF040-5081-101B-9F08-00AA002F954E}\\DefaultIcon", false);
   Rejestr.WriteString("", "c:\\koszfull.ico,0");
   Rejestr.WriteString("Empty", "c:\\koszempty.ico,0");
   Rejestr.WriteString("Full", "c:\\koszfull.ico,0");
   Rejestr.CloseKey();

   delete &Rejestr;
}

Podobnie można postępować z innymi elementami Pulpitu i Panelu Sterowania, należy tylko znaleźć odpowiednie klucze w Rejestrze.