Pfad beschreibbar

[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);
    if result then begin
      FileClose(fileHandle);
    end;
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

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".

Hintergrund:
Ich habe ein Programm, welches normalerweise ins Programmverzeichnis installiert wird. Danach wird die Registrierung ins Roaming Verzeichnis geschrieben.
Hier benötige ich die Abfrage, ob ich schreiben darf.

Das Programm kann aber auch auf ein Netzlaufwerk gelegt werden, wo die User dann nur einen Link nutzen müssen. Hier sollte in das Verzeichnis geschrieben werden können, wo auch das Programm liegt.
Wie würdet ihr das lösen bzw. mit welcher Funktion? Vielleicht gibt es etwas mit TFile, TPath o.ä.?

[p80286]

Warum nutzt Du nicht THandle?

Zitat:

function FileOpen(const FileName: string; Mode: LongWord): THandle;

Gruß
K-H

[Bernhard Geyer]

Zitat von zeras:

Das Programm kann aber auch auf ein Netzlaufwerk gelegt werden ... Hier sollte in das Verzeichnis geschrieben werden können,...

Gehe davon aus das bei ablage im Netz das schreiben im eigenen Verzeichnis auch nicht möglich ist.

Zitat von zeras:

Wie würdet ihr das lösen bzw. mit welcher Funktion? Vielleicht gibt es etwas mit TFile, TPath o.ä.?

Es ist schon das beste einen Versuch eine temporäre Datei anzulegen und dann den Windows-Fehlercode auszuwerten.
Alles andere ist zu komplex wenn man im Vorfeld versucht Rechte abzufragen.
Da kommt neben der NTFS-Berechtigung auch noch evtl. die Berechtigung über Netzwerkfreigaben dazu und auch evtl. laufenden Sicherheitsoftware könnte dazwischenfunken.

[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.

[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.