CD open close/de

From Lazarus wiki
Revision as of 23:53, 10 February 2020 by Trev (talk | contribs) (Fixed syntax highlighting; deleted category already in page template)
Jump to navigationJump to search

Deutsch (de) English (en)

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;
  
  ...