Delphi-Quellcode:
FUNCTION GetDriveTypeString(
CONST DriveType: TDriveType):
STRING;
BEGIN
CASE DriveType
OF
dtFloppy : RESULT := '
Floppy';
dtFixed : RESULT := '
Fixed';
dtNetwork: RESULT := '
Network';
dtCDROM : RESULT := '
CDROM';
dtRAM : RESULT := '
RAM';
ELSE RESULT := '
Unknown'
END
END;
Das TDriveType muss noch mit der
WinApi Ersetzt werden, mein Fehler!! Danke. Auch für testen wegen Admin-Rechte!
Frage: Hast Du die .exe per Source per
IDE aufgerufen oder einfach im Explorer mein Kompilat? Weil Eigentlich CD/DVD/BD-Laufwerke eine 255 haben sollten (Wert -1).