Script to change Drive Letter Icons

[sykes]

This script uses a registry hack to change the icons for the drive letters

$drive = FileSelectFolder("Select Drive", "")
$drive = StringLeft($drive, 1)

If $drive = "" Then 
   MsgBox(0, "Error", "No Drive Letter Was Selected")
   Exit
EndIf

$icon = FileOpenDialog("Select A New Icon", "C:\", "(*.ico)")

Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"_ 
& $Drive & "\DefaultIcon\", "", "REG_SZ", $icon)

ProcessClose("Explorer.exe")

*Watch Word Wrap*

Edited November 8, 2004 by psichosis