Disk in Drive/de
Deutsch · English
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 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.