Wie Fehler bzw. Rückgabewert False abfangen?

[AlexII]

Zitat von Sir Rufo:

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;

Zitat von AlexII:

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.

[AlexII]

Zitat von mkinzler:

Und wenn der Anwender unabhängig von Deiner Anwendung eine Karte mit Schreibschutz einschiebt, unterbleibt dann der Hinweis?

Ne, das nicht. Nur in meiner Anwendung soll der unterbleiben.

[AlexII]

Ok, soweit alles klar, aber was mache ich mit der

Zitat:

FILE_READ_ONLY_VOLUME

?
Ist das eine Konstante und wenn ja welchen Wert hat sie?

[Dalai]

Zitat von AlexII:

Ok, soweit alles klar, aber was mache ich mit der

Zitat:

FILE_READ_ONLY_VOLUME

?
Ist das eine Konstante und wenn ja welchen Wert hat sie?

Lies doch einfach mal im verlinkten MSDN-Artikel zu GetVolumeInformation, denn dort sind alle nötigen Infos enthalten!

MfG Dalai

[AlexII]

Ich glaube ich hab's. Vielen Dank an alle!

Delphi-Quellcode:

function LaufwerkBeschreibbar(root: String): Boolean;
const
  FILE_READ_ONLY_VOLUME = $00080000;
var
  Oem: Cardinal;
  MaximumComponentLength, FileSystemFlags: Cardinal;
begin
  Oem := SetErrorMode(SEM_FAILCRITICALERRORS);
  if GetVolumeInformation(PChar(Root), nil, 0, nil, MaximumComponentLength, FileSystemFlags, nil, 0) then
    Result := ((FileSystemFlags and FILE_READ_ONLY_VOLUME) = FILE_READ_ONLY_VOLUME);
  SetErrorMode(Oem);
end;

[Sir Rufo]

Zitat von AlexII:

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.

Ja stimmt, wenn du dort Grütze übergibst (z.B. das Volume gibt es gar nicht), dann ist es sehr sinnvoll keine Exception zu werfen.

[AlexII]

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;

[BadenPower]

Zitat von Sir Rufo:

Ja stimmt, wenn du dort Grütze übergibst (z.B. das Volume gibt es gar nicht), dann ist es sehr sinnvoll keine Exception zu werfen.

Ich stimme Dir vollkommen zu, dass der Benutzer in diesem Fall auf einen Fehler aufmerksam gemacht werden sollte.

Aber dies ist noch lange kein Grund ständig diese nervigen modalen Exceptions zu werfen.

Da glaube ich, werden wir uns nie einig werden.

[BadenPower]

Zitat von AlexII:

Moment, muss es nicht so sein? Ohne if-Abfrage?

Und wie unterscheidest Du, ob die Abfrage mit GetVolumeInformation gültig/erfolgreich war, wenn Du die If-Abfrage wegläßt?

[AlexII]

Zitat von BadenPower:

Zitat von AlexII:

Moment, muss es nicht so sein? Ohne if-Abfrage?

Und wie unterscheidest Du, ob die Abfrage mit GetVolumeInformation gültig/erfolgreich war, wenn Du die If-Abfrage wegläßt?

True ist nur dann wenn Laufwerk nur lesbar?