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