Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   [решено] Как написать програмку для открытия и закрытия DVD-RW, если буква диска неизвестна? (http://forum.oszone.net/showthread.php?t=145477)

Fraks 17-07-2009 23:51 1171030

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

Creat0R 18-07-2009 00:10 1171043

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

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

Creat0R 18-07-2009 00:23 1171050

Цитата:

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

Код:

$aDrives = DriveGetDrive("CDROM")

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


Fraks 18-07-2009 00:28 1171051

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

Creat0R 18-07-2009 00:48 1171063

Цитата:

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

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

beve 18-07-2009 01:23 1171079

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

#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 1171084

Респект!!!!

Fraks 30-08-2009 15:21 1207053

Цитата:

Цитата 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 30-08-2009 15:49 1207065

Цитата:

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

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

Creat0R 30-08-2009 18:22 1207200

Цитата:

Цитата FlatX007
Она самопальная »

Человек спрашивает откуда она, а не какая она :) И спрашивает справедливо, нужно источник давать обычно на функции, может там есть более новая версия?

beve 30-08-2009 18:40 1207226

Цитата:

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

Кто-то написал библиотеку cdtray_routines.au3 , иной взял и немножко изменил ее, а также ее название на CDTray_Check.au3 вот и вышло...
(P.S. Я не первый и не второй. Я взял отсюда.


Время: 20:43.

Время: 20:43.
© OSzone.net 2001-