Revision 1 of 2, by WikiArchive on 11-4-2026. The page as it is now.
Disk in Drive/de
https://upload.wikimedia.org/wikipedia/commons/thumb/5/5f/Windows_logo_-_2012.svg/50px-Windows_logo_-_2012.svg.png
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│ Deutsch (de) │ English (en) │
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion prüft, ob sich ein Medium im CD bzw. DVD Laufwerk befindet.
uses
SysUtils, ...;
// Aufzählung (Enumeration) für die Rückgabewerte
type
byte = (enmKeinLWBuchstabe, enmKeinMedEingelegt, enmMedEingelegt, enmFehler);
...
function funDiskInDrive(chrLaufwerk: char): byte;
begin
Result := enmKeinLWBuchstabe;
chrLaufwerk := UpCase(chrLaufwerk);
// Überprüft, ob es sich um einen gültigen Laufwerksbuchstaben handelt.
if not (chrLaufwerk in ['A'..'Z']) then
exit;
// Überprüft, ob das Laufwerk ein Medium enthält.
try
if DiskSize(Ord(chrLaufwerk) - $40) <> -1 then
Result := enmMedEingelegt
else
Result := enmKeinMedEingelegt;
except
Result := enmFehler;
end;
end;
...Beispiel für den Aufruf der Funktion:
...
case funDiskInDrive('F') of
enmKeinLWBuchstabe: ... ;
enmKeinMedEingelegt: ... ;
enmMedEingelegt: ... ;
enmFehler: ... ;
end;
...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.