Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.066 Beiträge
 
Delphi 12 Athens
 
#11

Re: Schreibrechte prüfen und Windows 7

  Alt 6. Nov 2009, 14:13
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;
Uwe Raabe
  Mit Zitat antworten Zitat