Pfad beschreibbar

[zeras]

Zitat von peterbelow:

Zitat von zeras:

Ich habe folgende Funktion aus dem Netz kopiert, um zu prüfen, ob ich in einen Pfad schreiben kann oder nicht:

Delphi-Quellcode:

//hier schauen wir nach, ob wir Dateien ins Programmverzeichnis schreiben können
Function IsFileWritetable(const FileName: String): Boolean;
var
  FileHandle  : Cardinal; //18.02.19 -> war vorher integer
  OldErrorMode: Cardinal;

begin

  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);

  try

    FileHandle := FileOpen(FileName, fmOpenWrite);
    result := (FileHandle >= 0);

Mit dem 10.3.1 schlug Delphi vor, das Filehandle von Integer auf Cardinal zu ändern.
Seitdem bekomme ich die Meldung im Programm "Zugriff verweigert".

Tja, man sollte auf die Hints des Compilers achten . Hat er Dir nicht gesagt, dass der Ausdruck (FileHandle >= 0) immer True ist?

Das kommt vom Wechsel auf Cardinal. Wenn das File nicht geöffnet werden kann gibt FileOpen INVALID_HANDLE_VALUE zurück, was High(Cardinal) ist (interpretiert als Integer also -1). Daher hat das geklappt solange FileHandle als Integer deklariert war. Jetzt mußt Du das Statement in

  result := FileHandle <> INVALID_HANDLE_VALUE; ändern.

Danke für eure Tipps.
Habe jetzt diese Änderung eingebaut und funktioniert.