Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#21

AW: Wie Fehler bzw. Rückgabewert False abfangen?

  Alt 26. Jun 2015, 14:47
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.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat