Schreibzugriff Datei prüfen

[zeras]

Danke für den Schnipsel.

Zitat von himitsu:

Direkt mit der WinAPI ist's hier aber "schöner", da man dann die Exceptions nicht hat, sondern nur schön stille Result-Werte.

Delphi-Quellcode:

fName := TPath.Combine(ExtractFilePath(fDir), 'test.tmp');
H := CreateFile(PChar(fName), GENERIC_WRITE, 0, nil, {CREATE_ALWAYS} CREATE_NEW, {0} FILE_ATTRIBUTE_TEMPORARY, 0);
CloseHandle(H);
//DeleteFile(PChar(fName));  // nicht nötig, da FILE_ATTRIBUTE_TEMPORARY, womit Windows die Datei automatisch löscht
Result := H <> INVALID_HANDLE_VALUE;

Ich habe die Zeilen übernommen, musste aber trotzdem die Datei mittels Deletefile löschen, da sie trotzdem angelegt wurde.