Also wenn das Laufwerk beschreibbar ist, ist Result = 0(False). Und wenn unbeschreibbar = -1(True)
Delphi-Quellcode:
if GetVolumeInformation(PChar(Root), nil, 0, nil, MaximumComponentLength, FileSystemFlags, nil, 0) then
begin
Result := ((FileSystemFlags and FILE_READ_ONLY_VOLUME) = FILE_READ_ONLY_VOLUME);
showmessage(booltostr(result));
end;