Eher so
Delphi-Quellcode:
var
MaximumComponentLength, FileSystemFlags: Cardinal;
begin
if not GetVolumeInformation( PChar( 'C:\'), nil, 0, nil, MaximumComponentLength, FileSystemFlags, nil, 0 ) then
RaiseLastOSError( );
Result := ( ( FileSystemFlags and FILE_READ_ONLY_VOLUME ) = FILE_READ_ONLY_VOLUME );
end;
Aber
Zitat:
FILE_READ_ONLY_VOLUME
wird nicht gefunden. Muss ich daraus eine konstante Variable machen, oder so? Und wenn, welchen Wert besitzt sie?
Ja, den Link zur
MSDN-Doku hatte ich dir geschickt, jetzt musst du nur noch
lesen
Ich verstehe nur nicht was da alles heißt und wie man es anwendet. Was macht hier in deinem Fall
RaiseLastOSError( );
??
Ich hoffe es wirft keine Meldung aus, diese möchte ich ja abfangen.