Fragen zu FMod

[SirThornberry]

die funktion kann ich dir nicht erklären aber wenns um öfnnen und schließen des CD-Laufwerks geht bissl source:

Delphi-Quellcode:

[...]
uses
  MMSystem, ...;


[...]
var laufwerksbuchstabe: char;
begin
  [...]
  if mciSendString(pchar('open ' + Laufwerksbuchstabe + ': type cdaudio alias cdlw'), nil, 0, 0) = 0 then
  begin
   mciSendString(PChar('set cdlw door ' + todo + ' wait'), nil, 0, 0); //todo kann "open" bzw "closed" sein
   mciSendString('close cdlw', nil, 0, 0)
  end;