Namen einer CD/DVD auslesen Topic is solved

[Maulwurf]

Hallo Leute,
Ich suche nach einer Möglichkeit den Name Meiner CD/DVD auszulesen.

Dabei habe ich mir schon "Dive" und "GetDrive" durchgelesen.

Geschafft habe ich schon mal das ich erkenne bei zwei DVD-Laufwerke (FG), dass F: (leer ist) und G: (die besagte DVD enthält)

Nun benötige ich den Namen der DVD um weiter arbeiten zu können.

Angefangenes Skript:

Code: Select all

Test:
DriveGet, AusgabeVar, List , CDROM
Anzahl_DVD_Laufwerke := StrLen(AusgabeVar)
MsgBox, Es stehen die Laufwerke:`n%AusgabeVar%`nzu verf%uu%gung.`n%Anzahl_DVD_Laufwerke%`n

Loop %Anzahl_DVD_Laufwerke%
{
Laufwerk_name := SubStr(AusgabeVar, A_Index , 1)
DriveGet, Status_DVD, Status, %Laufwerk_name%:
if (Status_DVD = READY)
{
 :? Wie heißt die DVD :?
}

MsgBox, Es stehen %Anzahl_DVD_Laufwerke% Laufwerke zu verf%uu%gung:`nDas gepr%uu%fte Laufwerk ist:%Laufwerk_name%`nStatus: %Status_DVD%`nAnzahl der DVD Laufwerke: %Anzahl_DVD_Laufwerke%`n

}
return

[haichen]

Vielleicht so etwas?

Code: Select all

DriveGet, AusgabeVar, List, cdrom  ; ergibt bei dir FG

loop, parse, AusgabeVar ; geht jeden Buchstaben durch F .. G
{
    DriveGet, name, Label, %a_Loopfield%: ; Achtung Doppelpunkt F: G: 
    if (name !="") ; Nur Laufwerke mit Label, also wenn (name nicht leer) ist 
        AlleLabels .= "Laufwerk " a_Loopfield ": Hat das Label: " Name "`n"
}
Msgbox, % AlleLabels

[Maulwurf]

Perfekt, ja genau vielen Dank für deine schnelle Antwort.

[BoBo]

Dabei habe ich mir schon "Dive" und "GetDrive" durchgelesen.

Note2myself: nicht vergessen in der Forum-Spiele-Sektion den neuen AHK-Dive-Befehl anzukündigen. (Die machen da eine Woche Party, wetten?!)