Difference between revisions of "CD open close/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
|||
Line 31: | Line 31: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 05:35, 22 May 2013 (UTC) | --[[User:Olaf|Olaf]] 05:35, 22 May 2013 (UTC) | ||
− | [[Category:Code | + | |
+ | |||
+ | {{AutoCategory}} | ||
+ | [[Category:Code Snippets/de]] |
Revision as of 23:48, 29 October 2015
│
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;
...
--Olaf 05:35, 22 May 2013 (UTC)