Difference between revisions of "CD open close/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
|||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| + | {{Platform only|Windows}} | ||
{{CD open close}} | {{CD open close}} | ||
| − | + | ||
| − | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
| − | + | ||
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
| − | Die Prozedur öffnet bzw. schliesst ein CD / DVD Laufwerk. | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. |
| − | + | ||
| − | <syntaxhighlight> | + | Die Prozedur öffnet bzw. schliesst ein CD / DVD Laufwerk. |
| + | |||
| + | |||
| + | <syntaxhighlight lang="pascal"> | ||
uses | uses | ||
MMSystem, ...; | MMSystem, ...; | ||
| Line 28: | Line 32: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 16:55, 9 September 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
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;
...
