CD Laufwerk Status ermitteln

[mOzZzI]

Hallo Dp-Freunde,

ich wollte mal den Status eines CD Laufwerks ermitteln, dazu habe ich folgenden Code gefunden:

mciSendString('Set cdaudio door closed wait', Nil, 0, Handle) Jetzt wollte ich beim PopUp'pen des PopUpMenüs den Status abfragen, also ungefähr so:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if mciSendString('Set cdaudio door closed wait', Nil, 0, Handle)= 0  then
begin
 Status1.Caption:=('Status » Geschlossen')
 end;
if mciSendString('Set cdaudio door closed wait', Nil, 0, Handle)= 1 then
 begin
 Status1.Caption:=('Status » Geöffnet');
 end;
end;

Leider funktioniert es nur wenn es Geschlossen ist...
Ich weiß da nicht weiter...

Ich danke euch jetzt schon für eure Hilfe.

Grüße Philipp

[RWarnecke]

Hallo,

vielleicht hilft Dir ja dieser Link weiter.

[mOzZzI]

Zitat von RWarnecke:

Hallo,

vielleicht hilft Dir ja dieser Link weiter.

Wirklich weitergeholfen hat mir es nicht da ich nicht genau weiß wie das funzen soll... aber ich versuche eine Prozedur zu schreiben...:

Delphi-Quellcode:

procedure TForm1.Status(const open: Boolean);
begin
 if mciSendString('Set cdaudio door closed wait', Nil, 0, Handle)=0
 then
  Open:= True else
  Open:= False;
 end;

Aber das geht nicht...

das man dann ungefähr so abfragt:

if Status(True) then showmessage('CD Laufwerk geöffnet!');

[mOzZzI]

Hi;

hier
habe ich gefunden wie man das überprüfen könnte aber wie?


Noch eine Variante:

Delphi-Quellcode:

function TForm1.CD_Status:Boolean;
begin
 result:= mciSendString('Set cdaudio door closed', Nil, 0, Handle)=0
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
 begin
 if CD_Status then
  begin
  Status1.Caption:='Closed';
  end;
 end;

 begin
 if not CD_Status then
  begin
  Status1.Caption:='Opened';
  end;
 end;
end;

Ich hoffe das ihr mir helfen könnt..

[Hawkeye219]

Hallo,

hier sind noch zwei Links zu diesem Thema: Link1 Link2

Gruß Hawkeye

[Daniel G]

Hi,

natürlich ist es möglich, heraus zu finden, ob ein Laufwerk bereit ist oder nicht. Dein Weg wird dich wahrscheinlich über ASPI bzw. SPTI (ab Win2000 aufwärts) zum Ziel führen. Suche einfach mal nach "ASPI", imho gibt es bei Torry.net eine TASPILib. Bin mir aber nicht sicher...(was die Library angeht..)

[Daniel G]

Hmm, hab' da noch ne interessante Struktur gefunden:

VDS_DISK_STATUS

//Edit: Ok, vergiss' es. Man sollte erst zu Ende lesen, dann posten:

Requires Windows Vista.

Kein Wunder, dass man über die MSDN (noch) nichts findet. Also einfach im Hinterkopf behalten und noch ein paar Jahre warten. Dann hat's jeder.