Registriert seit: 28. Apr 2008
1.717 Beiträge
FreePascal / Lazarus
|
AW: Wie Fehler bzw. Rückgabewert False abfangen?
26. Jun 2015, 16:54
Moment, muss es nicht so sein? Ohne if-Abfrage?
Delphi-Quellcode:
function LaufwerkBeschreibbar(root: String): Boolean;
const
FILE_READ_ONLY_VOLUME = $00080000;
var
Oem: Cardinal;
MaximumComponentLength, FileSystemFlags: Cardinal;
begin
Oem := SetErrorMode(SEM_FAILCRITICALERRORS);
GetVolumeInformation(PChar(Root), nil, 0, nil, MaximumComponentLength, FileSystemFlags, nil, 0);
Result := ((FileSystemFlags and FILE_READ_ONLY_VOLUME) = FILE_READ_ONLY_VOLUME);
SetErrorMode(Oem);
end;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
|
|
Zitat
|