Schreibrechte prüfen und Windows 7

[Uwe Raabe]

Zitat von Dragon27:

Ich habe die Datei(en) [es können bis 5000 sein] jetzt immer mit ner Stringliste geöffnet und etwas geschrieben, dann wieder gelöscht.
Leider ist das sehr langsam. Habt ihr da eine bessere Lösung?

Delphi-Quellcode:

function KannIchSchreiben(const FileName: String): Boolean;
var
  fileHandle: Integer;
begin
  fileHandle := FileOpen(FileName, fmOpenWrite);
  result := (fileHandle >= 0);
  if result then begin
    FileClose(fileHandle);
  end;
end;