Sign in Join
Wiki copytemporary

Disk in Drive/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
1-[![Windows logo - 2012.svg](https://upload.wikimedia.org/wikipedia/commons/thumb/5/5f/Windows_logo_-_2012.svg/50px-Windows_logo_-_2012.svg.png)](</File:Windows_logo_-_2012.svg>)
1+Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
22
3-Dieser Artikel behandelt ausschließlich [Windows](</Category:Windows> "Category:Windows").
3+Die Funktion prüft, ob sich ein Medium im CD bzw. DVD Laufwerk befindet.
44
5-Siehe auch: [[Multiplatform Programming Guide/de]]
5+``` pascal
6+uses
7+ SysUtils, ...;
68
7-│ **Deutsch (de)** │ **[[Disk in Drive|English (en)]]** │
8-****
9+// Aufzählung (Enumeration) für die Rückgabewerte
10+type
11+ byte = (enmKeinLWBuchstabe, enmKeinMedEingelegt, enmMedEingelegt, enmFehler);
912
10-Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
13+ ...
1114
12-Die Funktion prüft, ob sich ein Medium im CD bzw. DVD Laufwerk befindet.
13-```
14-uses
15- SysUtils, ...;
16-
17- // Aufzählung (Enumeration) für die Rückgabewerte
18- type
19- byte = (enmKeinLWBuchstabe, enmKeinMedEingelegt, enmMedEingelegt, enmFehler);
20-
21- ...
22-
23- function funDiskInDrive(chrLaufwerk: char): byte;
24- begin
25-
26- Result := enmKeinLWBuchstabe;
27- chrLaufwerk := UpCase(chrLaufwerk);
28-
29- // Überprüft, ob es sich um einen gültigen Laufwerksbuchstaben handelt.
30- if not (chrLaufwerk in ['A'..'Z']) then
31- exit;
32-
33- // Überprüft, ob das Laufwerk ein Medium enthält.
34- try
35- if DiskSize(Ord(chrLaufwerk) - $40) <> -1 then
36- Result := enmMedEingelegt
37- else
38- Result := enmKeinMedEingelegt;
39- except
40- Result := enmFehler;
41- end;
42-
43- end;
44-
45- ...
46-```
15+function funDiskInDrive(chrLaufwerk: char): byte;
16+begin
4717
48-Beispiel für den Aufruf der Funktion:
18+ Result := enmKeinLWBuchstabe;
19+ chrLaufwerk := UpCase(chrLaufwerk);
20+
21+ // Überprüft, ob es sich um einen gültigen Laufwerksbuchstaben handelt.
22+ if not (chrLaufwerk in ['A'..'Z']) then
23+ exit;
24+
25+ // Überprüft, ob das Laufwerk ein Medium enthält.
26+ try
27+ if DiskSize(Ord(chrLaufwerk) - $40) <> -1 then
28+ Result := enmMedEingelegt
29+ else
30+ Result := enmKeinMedEingelegt;
31+ except
32+ Result := enmFehler;
33+ end;
34+
35+end;
36+
37+ ...
4938```
50-...
51-
52- case funDiskInDrive('F') of
53- enmKeinLWBuchstabe: ... ;
54- enmKeinMedEingelegt: ... ;
55- enmMedEingelegt: ... ;
56- enmFehler: ... ;
57- end;
58-
59- ...
39+
40+Beispiel für den Aufruf der Funktion:
41+
42+``` pascal
43+
44+ ...
45+
46+ case funDiskInDrive('F') of
47+ enmKeinLWBuchstabe: ... ;
48+ enmKeinMedEingelegt: ... ;
49+ enmMedEingelegt: ... ;
50+ enmFehler: ... ;
51+ end;
52+
53+ ...
6054```
6155
6256---
63-*From the Free Pascal wiki, page "Disk in Drive/de", as the Internet Archive kept it on 2025-03-20. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
57+*From the Free Pascal wiki, page "Disk in Drive/de", as it stood on 2020-02-13 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history