Probleme: TInifile und Vista

[Graffi]

Wie schon geschrieben, sind die folgenden Variablen VON MIR:

Delphi-Quellcode:

Var CurrentIniFile : string;
    CurrentSection : string;
    CurrentDir     : string;

Diese setze ich erst in meiner Anwendung.

Probleme macht diese Routine:

Delphi-Quellcode:

function ReadIniStr(Eintrag: string) : string;
var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create(CurrentDir+CurrentInifile+'.ini');
  with MyIniFile do
  begin
    Result := Readstring(currentsection,eintrag,'');
  end;
  MyIniFile.Free;
end;

Nur unter Admin-Rechten kommen hier Ergebnisse!!