Mam taki problemik:
W FuckYou(FAQ) nawet sam dodalem:
http://www.4programmers.net/view_faq.php?id=212
--People=Shit
//Slipknot
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
Ale ty Zimny jesteś dobry człowiek dla leniuchów :) powinieneś zmienić ksywę na Ciepły :P---------------------------------------------------------------
Pozdrawiam
Sebek
GG: 3344299
Naczelny DCP
seboo@o2.pl
Pablo Picasso kiedyś powiedział:
"Computers are useless, they can only give you answers."
"Komputery są nie użyteczne, mogą dać ci tylko odpowiedzi."
Sebek:
Troszke przy dluga sygnaturka ;]
Zimny:
Po co powielac to co jest w serwisie ;]
Zapychanie miejsca na serverze ;p--People=Shit
//Slipknot