Wysuwanie i wsuwanie tacki cd

0

Mam taki problemik:
Mam nagrywarke i dvd-rom w oddzielnych maszynkach :-)
Jak wysunąć tackę wybranego napędu? Jak daje tak:
mcisendstring('Set cdaudio door open wait',nil,0,handle);
to mi wysówa dvd, jak zrobić żeby można bylo wybrać ktore ma wysunąć?------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

0

W FuckYou(FAQ) nawet sam dodalem:
http://www.4programmers.net/view_faq.php?id=212
--People=Shit
//Slipknot

0

A kto tam będzie shukać, mash to pod nos :-) :

{ Dla dowolnej litery :) }
uses
MMSystem;

procedure OpenCloseCD(Drive: string; OpenCD: Boolean);
{Litera dysku musi być np. "X:",
OpenCD:
true = otworzyć
false = zamknąć}
var
OpenParm: TMCI_Open_Parms;
Handle: THandle;
begin
OpenParm.dwCallback := 0;
OpenParm.lpstrDeviceType := 'CDAudio';
OpenParm.lpstrElementName := PChar(Drive);
OpenParm.dwCallback := Handle;
if OpenCD then
begin {Otwieranie napędu CDROM}
mciSendCommand(0, MCI_OPEN, MCI_OPEN_ELEMENT or MCI_OPEN_TYPE, Longint(@OpenParm));
mciSendCommand(OpenParm.wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
end
else
begin
{Zamykanie napędu CDROM}}
mciSendCommand(0, MCI_OPEN, MCI_OPEN_ELEMENT or MCI_OPEN_TYPE, Longint(@OpenParm));
mciSendCommand(OpenParm.wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
end;
{Należy jeszcze zamknąć MCI, inaczej kolejna próba otwarcia albo zamknięcia szuflady CDROM nie powiodła by się}
mciSendCommand(OpenParm.wDeviceID, MCI_CLOSE, MCI_NOTIFY, Longint(@OpenParm));
OpenCD := not OpenCD;
end;

Aby po prostu wysunąć CD-ROM(nie wiadomo jaki) należy :

uses
mmsystem;

mciSendString('Set cdaudio door open wait',nil,0,handle); {wysunięcie }
mciSendString('Set cdaudio door closed wait',nil,0,handle); { wsunięcie }--Nieważne czy producent jest z Ameryki czy z Niemiec i tak wszystko jest z Tajwanu

0

Ale ty Zimny jesteś dobry człowiek dla leniuchów :) powinieneś zmienić ksywę na Ciepły :P---------------------------------------------------------------
Pozdrawiam
Sebek
GG: 3344299
Naczelny DCP
[email protected]

Pablo Picasso kiedyś powiedział:
"Computers are useless, they can only give you answers."
"Komputery są nie użyteczne, mogą dać ci tylko odpowiedzi."

0

Sebek:
Troszke przy dluga sygnaturka ;]

Zimny:
Po co powielac to co jest w serwisie ;]
Zapychanie miejsca na serverze ;p--People=Shit
//Slipknot

0

Dzięki!------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

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