Ładny brzuch
zepsul mi sie przycisk na cd-romie napisalem maly prog do otwierania i zamykania
ale jesli wysune tacke tym progiem a wsune popychajac reka to prog juz nie otwiera. Jak sprawdzic czy cd-rom jest otwary czy zamkniety ??
zepsul mi sie przycisk na cd-romie napisalem maly prog do otwierania i zamykania
ale jesli wysune tacke tym progiem a wsune popychajac reka to prog juz nie otwiera. Jak sprawdzic czy cd-rom jest otwary czy zamkniety ??
eh rece opadaja "borkol" - Zdaza mi sie czasem wsunac reka ale tylko czasem . Poza tym chodzi o rozwiazanie problemu "jak sprawdzi stan cd-rom"
Masz procedur:
procedure TForm1.WMDeviceChange(var Msg: TMessage); const PLYTA_WLOZONA = $8000; PLYTA_WYSUNIETA = $8004; begin case Msg.wParam of PLYTA_WLOZONA: {tu robisz, co Ci si podoba;)} PLYTA_WYSUNIETA: {tu te :D} end; end;
Wczeniej zadeklaruj:
protected procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
---
Jakby chcia, mog jeszcze paroma prockami sypn. (A tak szczerze: to jest z ksiki "Delphi 2005. 303 gotowe rozwizania")
Uytkownik pbnan edytowa ten post 18 czerwiec 2006, 17:12
pbnan -THX - dobra odpowiedz - jeszcze raz dzieki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
ale jesli wysune tacke tym progiem a wsune popychajac reka to prog juz nie otwiera. Jak sprawdzic czy cd-rom jest otwary czy zamkniety ??
zepsul mi sie przycisk na cd-romie napisalem maly prog do otwierania i zamykania
ale jesli wysune tacke tym progiem a wsune popychajac reka to prog juz nie otwiera. Jak sprawdzic czy cd-rom jest otwary czy zamkniety ??

eh rece opadaja "borkol" - Zdaza mi sie czasem wsunac reka ale tylko czasem . Poza tym chodzi o rozwiazanie problemu "jak sprawdzi stan cd-rom"
Masz procedur:
procedure TForm1.WMDeviceChange(var Msg: TMessage); const PLYTA_WLOZONA = $8000; PLYTA_WYSUNIETA = $8004; begin case Msg.wParam of PLYTA_WLOZONA: {tu robisz, co Ci si podoba;)} PLYTA_WYSUNIETA: {tu te :D} end; end;
Wczeniej zadeklaruj:
protected procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
---
Jakby chcia, mog jeszcze paroma prockami sypn. (A tak szczerze: to jest z ksiki "Delphi 2005. 303 gotowe rozwizania")
Uytkownik pbnan edytowa ten post 18 czerwiec 2006, 17:12
pbnan -THX - dobra odpowiedz - jeszcze raz dzieki