[speechless]

как то давно делал для себя, посмотри

Код:

#include <GUIConstants.au3>
GUICreate("MoDev",400,130)  ; will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW)       ; will display an empty dialog box

$regEnumVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", 1) ;читаем первое значение из реестра
if @error <> 0 then $regEnumVal="#" 
GUICtrlCreateLabel ("Диск",  10, 17, 30)    
GUICtrlCreateLabel ("Выбор иконки",  20, 90, 40,30)    
GUICtrlCreateLabel ("Смонтировать",  90, 17, 75)
GUICtrlCreateLabel ("Отмонтировать",  87, 45, 80)
GUICtrlCreateLabel ("Поиск дисков",  90, 75, 75)
GUICtrlCreateGroup ("Бонус", 12, 33, 53, 90)
GUICtrlCreateLabel ( "MoDev паразитирует на стандартной виндозной утилите ""mountvol"" для монтирования/демонтирования разделов диска без перезагрузки ВНИМАНИЕ: при изменении размеров разделов повторите поиск дисков", 210,10, 180, 110)
$combo=GUICtrlCreateCombo ($regEnumVal, 45,10,35) ; создаем combo
ControlDisable("", "#", $combo) ;делаем серым combo
For $i = 1 to 100
$regEnumVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", $i) ;читаем в цикле реестр
if @error <> 0 Then ExitLoop
GUICtrlSetData($combo,$regEnumVal) ; добавляем в combo буквы fixed дисков
next
$deMount=GUICtrlCreateButton ("Демонтировать",  170, 40, 25,23,$BS_ICON) ;кнопка демонтировать
GUICtrlSetImage ($deMount,"shell32.dll",131,0)
$mount=GUICtrlCreateButton ("Монт",  170, 10, 25,23,$BS_ICON) ;кнопка монтировать
GUICtrlSetImage ($mount,"shell32.dll",112,0)
$search=GUICtrlCreateButton ("Поиск дисков",  170, 70, 25,23,$BS_ICON) ;кнопка поиска
GUICtrlSetImage ($search,"shell32.dll",22,0)
$ico=GUICtrlCreateButton ("Иконки",  20, 50, 37,35,$BS_ICON) ;кнопка выбора иконки
If GUICtrlRead($combo)="#" then ControlDisable("", "", $ico) ;если дисков нет кнопка $ico неактивна
$str = StringLeft(GUICtrlRead($combo), 1) ;берем только букву
$r=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"&$str&"\DefaultIcon", "") ;читаем путь к иконке
GUICtrlSetImage ($ico,"shell32.dll",8) ;показ иконки на кнопке по умолчанию
GUICtrlSetImage ($ico,$r,0) ;показ иконки на кнопке

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
   Select
	  Case $msg=$deMount
		 $system = StringLeft(@WindowsDir, 2)
			If GUICtrlRead($combo)=$system then
			   MsgBox(8192,"Warning", "Осторожно !!! Вы выбрали системный диск")
			EndIf
		 $deMountMsg=msgbox(8212,"Demounted", "Демонтировать диск "&GUICtrlRead($combo)&"   Уверен?") 
			If $deMountMsg=6 then ;если Да то
			   Run("mountvol.exe"&" "&GUICtrlRead($combo)&" /D") ;демонтируем выбранный раздел
			EndIf
	  Case $msg=$mount
            $MountMsg=msgbox(8260,"Mounted", "Смонтировать диск "&GUICtrlRead($combo))  
			;msgbox(8260,"Mounted", $MountMsg)  
			   If $MountMsg=6 then ;если Да то
				  $point = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", GUICtrlRead($combo)) ;читаем точку монтирования
				  ;msgbox(8260,"Mounted", $point)
				  $point=StringReplace( $point, "\??\Volume", "\\?\Volume") ;меняем строку для mountvol
				  ;msgbox(8260,"Mounted", $point)
				  Run("mountvol.exe"&" "&GUICtrlRead($combo)&" "&$point) ;монтируем выбранный раздел
				EndIf  
	  Case $msg=$combo ;при выборе диска
			$str = StringLeft(GUICtrlRead($combo), 1) ;берем только букву
			$r=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"&$str&"\DefaultIcon", "") ;читаем путь к иконке
			GUICtrlSetImage ($ico,"shell32.dll",8) ;показ иконки на кнопке по умолчанию
			GUICtrlSetImage ($ico,$r,0) ;показ иконки на кнопке
			$system = StringLeft(@WindowsDir, 2) 
				If GUICtrlRead($combo)=$system then ;если диск системный
				   MsgBox(8192,"Warning", "Осторожно !!! Вы выбрали системный диск") ;появляется предупреждение
				EndIf
	  Case $msg=$search
		 $fixedDrive = DriveGetDrive( "fixed" ) ;все fixed диски
			If NOT @error Then
			   ;MsgBox(4096,"", "Found " & $fixedDrive[0] & " drives")
				  For $i = 1 to $fixedDrive[0] ;ищем все фиксированные диски
					 ;MsgBox(4096,"Drive " & $i, $fixedDrive[$i])
					 $key = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & $fixedDrive[$i]) ;ищем все значения фиксированных дисков в реестре
					 ;MsgBox(4096, "\DosDevices\" & $fixedDrive[$i], $key)
					 For $ii = 1 to 100
						$a = RegEnumVal("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", $ii) ;просмотр ветви MountedDevices
						   If @error <> 0 Then ExitLoop
						;MsgBox(4096, "HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices" & $ii, $a)
						$result = StringInStr($a, "\??\Volume") ;проверка на наличие строк "\??\Volume"
						;MsgBox(0, "Search result:", $result)
							If $result = 1 Then                                                 ;если строки "\??\Volume" есть
								$v = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", $a)  ;то читаем значения этих ключей
								;MsgBox(4096, $a, $v)
									If $v = $key Then                                                 
										;MsgBox(4096, $fixedDrive[$i], $a) ;найденные соответствия буквы диска и точки монтирования
													; Write a single REG_SZ value
													RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", $fixedDrive[$i], "REG_SZ", $a) ;запись результата в реестр
									EndIf
							EndIf
					 next
				  Next
			EndIf
		 GUICtrlDelete($combo) ;удаляем старое combo
		 $regEnumVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", 1) ;читаем первое значение из реестра
		 $combo=GUICtrlCreateCombo ($regEnumVal, 45,10,35) ; создаем combo
			For $i = 1 to 100
			   $regEnumVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\RZ\MoDev", $i) ;читаем в цикле реестр
				  if @error <> 0 Then ExitLoop
			   GUICtrlSetData($combo,$regEnumVal) ; добавляем в combo буквы fixed дисков
			next
		 ControlEnable("", "", $ico) ;кнопка $ico активна
		 $str = StringLeft(GUICtrlRead($combo), 1) ;берем только букву
		 $r=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"&$str&"\DefaultIcon", "") ;читаем путь к иконке
		 GUICtrlSetImage ($ico,"shell32.dll",8) ;показ иконки на кнопке по умолчанию
		 GUICtrlSetImage ($ico,$r,0) ;показ иконки на кнопке
	  Case $msg=$ico
		 $str = StringLeft(GUICtrlRead($combo), 1) ;берем только букву
		 $icoPatch = FileOpenDialog("Выбор иконки", "", "Icons (*.ico;*.dll;*.exe)", 1 ) ;окно выбора файла
			If $icoPatch<>"" then ;если путь не пустой
			   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"&$str&"\DefaultIcon", "", "REG_SZ", $icoPatch) ;запись в реестр пути к иконке
			   GUICtrlSetImage ($ico,"shell32.dll",8) ;показ иконки на кнопке по умолчанию
			   GUICtrlSetImage ($ico,$icoPatch,0) ;показ иконки на кнопке
			EndIf
   EndSelect
   If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

версию не помню, на всякий случай прикрепляю exe