CD open close/de

From Free Pascal wiki

Deutsch (de)
Zurück zur Seite Code Beispiele.

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur öffnet bzw. schliesst ein CD / DVD Laufwerk.

uses
  MMSystem, ...;
  
  ...
  
procedure subCDAufZu(chrDriveChar: char; blnOeffnen: boolean);
begin
  if mciSendString(PChar('open ' + chrDriveChar + ': type cdaudio alias cdlw'),
    nil, 0, 0) = 0 then
  begin
    if blnOeffnen = True then
      mciSendString('set cdlw door open wait', nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', nil, 0, 0);
    mciSendString('close cdlw', nil, 0, 0);
  end;
end;
  
  ...



--Olaf 05:35, 22 May 2013 (UTC)