Laufwerk auf und zu

mke · Hält's aus hier Beiträge: 10

Hallo Leute,
ich habe erst vor kurzem mit Delphi angefangen deshalb die frage,
wie lautet der befehl für das öffnen des cs roms und schliessen?

/mke

Moderiert von Tino: Topic aus Sonstiges verschoben am Mi 13.04.2005 um 10:50

F34r0fTh3D4rk · Verfasst: Di 12.04.05 16:53

erstmal

und zu deiner frage:

steht hier im forum

mke · Hält's aus hier Beiträge: 10

ja soll ich da jetzt suchen oder was,
sag es mir doch einfach!

Robert.Wachtel · Verfasst: Di 12.04.05 16:59

mke hat folgendes geschrieben:

ja soll ich da jetzt suchen oder was, [...]

Ja.

mke · Hält's aus hier Beiträge: 10

jo dann versuch ich es mal woanders

greg · Beiträge: 119 Windows2000, WindowsXP D5 Prof

Hallo mke,

das Forum bietet eine Suchfunktion, mit der Du in vielen Fällen findest, was Du suchst.
Klick mal auf 'Suche' und gib dort z.B. 'CD-ROM öffnen' ein. Damit findest Du die Antwort, nach der Du suchst.

@ F34r0fTh3D4rk und Robert.Wachtel: Ein bisschen Hilfestellung solltet Ihr einem Neuling schon geben, denke ich.

Gruß
Gregor

mke · Hält's aus hier Beiträge: 10

danke greg

Lord-Shakir · Hält's aus hier Beiträge: 11

Moin greg,

nur mal son ne frage:
ich hab 'CD-ROM öffnen' in die suchfunktion eingegeben, und dann mal locker nichts dazu gefunden, was mir helfen könnte...

MfG Felix

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Ich Habs mal Probiert mit CD-Rom hat 120 Ergebnise gebracht und auf der zweiten Seite ganz unten steht die Lösung.

MatzeB · Verfasst: Do 06.10.05 11:29

Hallo Zusammen!

Also mit dem Stichwort "cdrom" lässt es sich noch besser einschränken und für Alle die zu faul zum suchen sind hier er Link:

www.delphi-forum.de/...&highlight=cdrom

Greetz, Matze

Muck22 · Beiträge: 23

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button3Click(Sender: TObject);
begin
 mciSendString('set CDAudio door open',nil,0,0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 mciSendString('set CDAudio door closed',nil,0,0);
end;

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Ziehmlich alter Thread und Du müsstest dazu schreiben das in die uses Klausel MMSystem gehört sonst funzt es nicht !

mtin · Beiträge: 177 Win XP SP2 BDS2006 Enterprise

aber das ist auch nicht so das wahre, beim öffnen dauerts immer erstmal so 4-7 Sekunden bei mir...gibts da eventuell noch eine andere Möglichkeit?
(beim schließen setzt sich das Laufwerk sofort "in Bewegung" sobald ich den Befehl sende)

hibbert · Verfasst: Do 09.03.06 23:46

wenn hier die Suche nichts hilft, dann versuch es doch einfach hier :wink:

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

matze.de · Verfasst: Fr 10.03.06 15:01

Diese Funktionen tuns auch gut

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

function OpenCD(Drive: Char): Boolean;
var
  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWORD;
  S: string;
  DeviceID: Word;
begin
  Result := False;
  S := Drive + ':';
  Flags  := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT;
  with OpenParm do
  begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);   
  end;
  Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm));   
  if Res <> 0 then Exit;
  DeviceID := OpenParm.wDeviceID;   
  try   
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
    if Res = 0 then Exit;   
    Result := True;   
  finally
    mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));   
  end;   
end;

function CloseCD(Drive: Char): Boolean;
var
  Res: MciError;
  OpenParm: TMCI_Open_Parms;   
  Flags: DWORD;
  S: string;   
  DeviceID: Word;
begin   
  Result := False;
  S := Drive + ':';   
  Flags  := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT;
  with OpenParm do   
  begin
    dwCallback := 0;   
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);   
  end;
  Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm));   
  if Res <> then Exit;
  DeviceID := OpenParm.wDeviceID;   
  try
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);   
    if Res = 0 then Exit;
    Result := True;   
  finally
    mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));
  end;
end;

mfg matze

_________________
si tacuisses, philosophus mansisses.

jomeier85 · Beiträge: 46

also wie das schneller geht, wüsste ich auch gerne.
weil ich das auch in nem porgramm verwende und mir das dann immer zu lange dauert.

mfg jomeier85

Ehemaliges Mitglied Erhaltene Danke: 1

wozu muss man in einem Programm die Schublade öffnen können? Wenn ich die CD rausnehmen will, muss ich sowieso dahin greifen und kann dann auch den Knopf drücken. :gruebel:

hibbert · Verfasst: Fr 10.03.06 16:02

Luckie hat folgendes geschrieben:

wozu muss man in einem Programm die Schublade öffnen können? Wenn ich die CD rausnehmen will, muss ich sowieso dahin greifen und kann dann auch den Knopf drücken. :gruebel:

außer:
du hast ein Brennprogramm geschrieben. Dieses steuert zusätzlich einen kleinen Roboterarm, welcher die CDs aus der Schublade nimmt und eine neue CD reinlegt.
So könnte man ohne das man was tun muss viele kopien von CDs anfertigen :wink:

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Gausi · Verfasst: Fr 10.03.06 16:02

@Luckie: Mir fallen da zwei Einsatzgebiete ein: Zum einen Brennprogramme, die dem User Arbeit ersparen wollen. Der Brenner geht auf, wenn ein Rohling benötigt wird, oder ein Rohling defekt ist etc. Finde ich ganz praktisch.
Eine andere Möglichkeit sind natürlich die Programme, die softwaremäßig den Rechner mit einem Hardware-Getränkehalter aufrüsten. :mrgreen:

Dass das öffnen ab und zu länger dauert kann daran liegen, dass evtl. noch andere Prozesse auf die CD zugreifen, und das erstmal beendet werden muss. Es dauert ja auch manchmal ein oder zwei Sekunden, bis das Laufwerk auf den Auswurfbutton am Gerät reagiert.

_________________
We are, we were and will not be.

klezmor · Beiträge: 558 delphi 6 personal delphi 2005 personal

Mucks22 methode funktioniert bei mir nicht, kann mir jemand sagen wieso nicht?
liegt das an meinem winXP?

_________________
"Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme