Dateirechte ermittlen

[olee]

Hi ich hab ein kleines Problem:

Dazu erst mal ein kleiner Codeschnipsel:

Delphi-Quellcode:

Function SearchInFile(FileName: String; SearchOpts: TSearchOpts): Boolean;
Var TexFile: TStringList;
Begin
  result := false;
  If (FileGetSize(FileName) > SearchOpts.MaxSInFileSize) And (SearchOpts.MaxSInFileSize > 0) Then exit;
  TexFile := TStringList.create;
  Try
    TexFile.LoadFromFile(FileName);
    If Pos(SearchOpts.seekStr, TexFile.CommaText) <> 0 Then result := true;
  Finally
    TexFile.Free;
  End;
End;

Dieser Code soll in verschiedenen Dateien nach einem Text suchen.

Mein Problem ist jetzt jedoch, dass es vorkommt, dass mein Programm keine Leserechte hat, was einen Fehler auslöst.

Hat vllt. einer ne idee, wie ich das vorher prüfen kann?


MFG
Björn