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

Войти

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

Fraks

17-07-2009, 23:51

у меня на компе например буква DVD-RW "J:", а у моего знакомого- "E:"
как написать универсальный скрипт чтоб на всех компах можно было откривать диск????

Creat0R

18-07-2009, 00:10

Другими словами - нужно определить букву 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

18-07-2009, 00:16

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

Creat0R

18-07-2009, 00:23

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

$aDrives = DriveGetDrive("CDROM")

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

Fraks

18-07-2009, 00:28

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

Creat0R

18-07-2009, 00:48

спасибо!!!!
все пошло!!!! »
Для этого есть ссылка под каждым сообщением: http://forum.oszone.net/images/smilies/up.gif Полезное сообщение ;)

beve

18-07-2009, 01:23

Можно сделать, что крышка дисковода при запуске будет или закрываться или открываться (в зависимости от текущего состояния):#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

18-07-2009, 01:34

Респект!!!!

Fraks

30-08-2009, 15:21

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

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

FlatX007

30-08-2009, 15:49

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

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

Creat0R

30-08-2009, 18:22

Она самопальная »
Человек спрашивает откуда она, а не какая она :) И спрашивает справедливо, нужно источник (http://www.autoitscript.com/forum/index.php?showtopic=28326&st=0&p=201790&#entry201790) давать обычно на функции, может там есть более новая версия?

beve

30-08-2009, 18:40

Можно вопрос? Откуда ты взял эту библиотеку? Ее же нет в стандартном наборе »
Кто-то написал библиотеку cdtray_routines.au3 (http://www.autoitscript.com/forum/index.php?showtopic=28326&st=0&p=201790&#entry201790) , иной взял и немножко изменил ее, а также ее название на CDTray_Check.au3 вот и вышло...
(P.S. Я не первый и не второй. Я взял отсюда (http://forum.ru-board.com/topic.cgi?forum=5&topic=29240&start=420#21).