Czy cdrom jest wsuniety?

0

witam, jak moge sprawdzic czy szufladka cd jest zamknieta? Z gory dzieki.

0

uses
mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
s: array[0..64] of Char;
error: Cardinal;
Text: array[0..255] of Char;
begin
error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle);
if error <> 0 then
begin
mciGetErrorstring(error, @Text, 255);
ShowMessage(Text);
mciSendstring('close geraet', nil, 0, Handle);
Exit;
end;

error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle);
if error <> 0 then
begin
mciGetErrorstring(error, @Text, 255);
ShowMessage(Text);
mciSendstring('close geraet', nil, 0, Handle);
Exit;
end;

mciSendstring('close geraet', nil, 0, Handle);
ShowMessage('Message: ' + s);
end;

0

Oba sposoby dzialaja polowicznie, tj. gdy w cdromie jest plyta pokazuje ze cd jest zamkniety, ale gdy plyty nie ma a szufladka jest zamknieta to pokazuje ze cdrom jest otwarty.

0

Na experts-exchange.com jest odpowiedź na twoje pytanie, wystarczy poszukać. Stona jest anglojęzyczna.

0

Hmmm, ta strona jest troche dziwna. Zarejestrowalem sie w wyszukiwarce znjaduje pytenie a tu dupa nie moge zobaczyc odpowiedzi. Jakbys mogl sprawdzic i mi napisac tu to bylbym Ci bardzo wdzieczny...

0

Ja mam ten sam problem ;( Każą mi wybrać rodzaj dostępu: płatny albo bardziej płatny ;(

0

juz wiem o co biega. jak sie korzysta z wyszukiwarki to trzeba placic by zobaczyc odpowiedz. Trzeba przejrzec caleee FAQ. Jestem przy 1300 pytaniu:D

0

No i przeszukalem wszystko. razem z 3000 wskazowek i chyba te jedna przeoczylem bo nie maD

0

:( Kurde chyba od tygodnia szukam odpowiedzi na to pytanie. Jeszcze nikt nie odpowiedział poprawnie. W XP-q nie działa w ogóle komunikat (tzn. xp nie wysyła komunikatu) WM_DEVICECHANGE, a pod win98 działa i to tylko połowicznie tzn. informuje o wysunieciu tacki cdrom, a o jej ort! nie. Ludzie piszą różne kody które też nie działają (chyba nie sprawdzają ich u siebie?). Może w końcu ktoś okaże się tak bardzo miły i napisze cośco działa pod xp i 98, albo tylko pod xp albo może ktoś ma jakiś link działający??

1 użytkowników online, w tym zalogowanych: 0, gości: 1