Цитата Pozia:
Можно ли как нибудь сделать чтобы производилась проверка наличия нужного диска с правильными путями к файлам и при его отсутствии выскакивало сообщение о необходимости вставить диск и кнопка OK для подтверждения??? »
|
Код:
$sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx"
$sTag = "WIN51"
$sDVD = ""
$aDrives = DriveGetDrive("CDROM")
While 1
For $i=1 To $aDrives[0]
If FileExists($aDrives[$i] &"\"& $sTag) Then $sDVD = $aDrives[$i]
Next
If StringLen($sDVD)>0 Then ExitLoop
MsgBox(48, "Прерывание", 'Вставьте диск с дистрибутивом и нажмите "OK" для продолжения установки.')
WEnd
RegWrite($sKey &"\910", "1", "REG_SZ","REGEDIT /S "& $sDVD &"\$OEM$\HKLM.reg")
RegWrite($sKey &"\920", "1", "REG_SZ", "hidcon.exe Shutdown -r -f -t 0")
RegWrite($sKey &"\999", "1", "REG_SZ", $sDVD &"\WPI\WPI.hta")
RegWrite($sKey &"\920", "" , "REG_SZ", "Перезагрузка...")
Цитата Pozia:
как правильно записать в скрипт вот это »
|
последняя строчка примера