Arsip: Ganti Ikon Drive di MyComputer (WinXP)

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey
('Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\DriveIcons\', True);
{ True, because if a subkey named DriveIcons and/or DefaultIcon
does not exist, windows automatically creates it }
OpenKey('C\\DefaultIcon\', True); // as default first drive C
// we are choosing empty field as default value
WriteString('', 'C:\\YourIcons\\Sample1.ico');
{ and icon file path  or if dll file then
e.g  'c:\\YourIcons\\Icons.dll, 2' }
CloseKey;
end;
finally
Reg.Free;
end;
// if 2nd hard drive is present..
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey
('Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\DriveIcons\', True);
OpenKey('D\\DefaultIcon\', True);
WriteString('', 'C:\\YourIcons\\Sample2.ico');
CloseKey;
end;
finally
Reg.Free;
end;
end;