Hallo!
Jetzt habe ich dort folgendes stehen:
Delphi-Quellcode:
function tform1.getpath(i: integer): string;
var regist: TRegistry;
path: string;
janein: Boolean;
begin
path:='';
//regist:=TRegistry.Create;
regist := TRegistry.Create(KEY_READ);
regist.RootKey:=HKEY_CURRENT_USER;
janein:=regist.OpenKeyReadOnly('Software\meinprog');
if janein=true then showmessage('ja') else showmessage('Nein');
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;
Es wird mir auch gesagt, dass der Schlüssel existiert. Nur der Wert "work-dir" wird nicht gelesen.
Gruß
MAx666