Kann Registry-Werte nicht auslesen!

[max666]

Hallo!

Ich habe ein kleines Programm geschrieben, welches unter Administrator-Rechten super läuft. Wenn ich das Programm mit einem User mit eingeschränken Rechten laufen lasse, kann das Programm folgende Registry-Werte nicht mehr lesen. Diese Werte sind aber wichtig, damit das Programm die Konfikurationsdatein findet.

Hat jemand eine Idee!

Gruß
max666

Delphi-Quellcode:

function tform1.getpath(i: integer): string;
var regist: TRegistry;
    path: string;
begin
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\meinprog', false);
if i=1 then path:=regist.ReadString('work-dir') + 'start.ini';
if i=2 then path:=regist.ReadString('work-dir');
if i=3 then path:=regist.ReadString('work-dir') + 'button_1.ini';
if i=4 then path:=regist.ReadString('work-dir') + 'button_2.ini';
regist.CloseKey;
regist.Free;
result:=path;
end;