[решено] Как написать програмку для открытия и закрытия DVD-RW, если буква диска неизвестна?

Creat0R · Конфигурация компьютера

Другими словами - нужно определить букву CD/DVD носителя?

Пример:

Код:

$aDrives = DriveGetDrive("CDROM")

$sDVD_Letters = ""

For $i = 1 To $aDrives[0]
    $sDVD_Letters &= StringUpper($aDrives[$i]) & "\" & @CRLF
Next

MsgBox(64, "", "CDROMs Found:" & @CRLF & @CRLF & $sDVD_Letters)

Fraks · Конфигурация компьютера

спасибо огромное!!!!
а как ето теперь привязать к CDTray("буква диска:",'open')??

Creat0R · Конфигурация компьютера

Цитата Fraks:

как ето теперь привязать к CDTray("буква диска:",'open') »

Код:

$aDrives = DriveGetDrive("CDROM")

CDTray($aDrives[1], "open")
;CDTray($aDrives[2], "open") ;Это для второго CDROM'а (если такой имеется)

Fraks · Конфигурация компьютера

спасибо!!!!
все пошло!!!!

Creat0R · Конфигурация компьютера

Цитата Fraks:

спасибо!!!!
все пошло!!!! »

Для этого есть ссылка под каждым сообщением:

Полезное сообщение

beve · Конфигурация компьютера

Можно сделать, что крышка дисковода при запуске будет или закрываться или открываться (в зависимости от текущего состояния):

Код:

#include <CDTray_Check.au3> 
$allDrives = DriveGetDrive("CDROM")

If IsTrayOpen($allDrives[1]) == 1 Then 
CDTray ( $allDrives[1], "closed" )
Else 
CDTray ( $allDrives[1], "open" )
EndIf

для работы нужна библиотека CDTray_Check.au3

Fraks · Конфигурация компьютера

Респект!!!!

Fraks · Конфигурация компьютера

Цитата beve:

#include <CDTray_Check.au3> $allDrives = DriveGetDrive("CDROM") If IsTrayOpen($allDrives[1]) == 1 Then CDTray ( $allDrives[1], "closed" ) Else CDTray ( $allDrives[1], "open" ) EndIf »

Можно вопрос? Откуда ты взял эту библиотеку? Ее же нет в стандартном наборе

FlatX007 · Отправлено: **15:49, 30-08-2009** | #10

Цитата Fraks:

Можно вопрос? Откуда ты взял эту библиотеку? »

Она самопальная ...