Kann Registry-Werte nicht auslesen!

[Mattin]

Hallo,

versuchs mal so... vielleicht klappt das ja.

Delphi-Quellcode:

begin
    regist := TRegistry.Create(KEY_READ); 
    try
      regist.RootKey := HKEY_CURRENT_USER; 
      if regist.OpenKeyReadOnly('Software\meinprog') then
      begin  
        if i = 1 then result := regist.ReadString('work-dir') + 'start.ini'; 
        if i = 2 then result := regist.ReadString('work-dir'); 
        if i = 3 then result := regist.ReadString('work-dir') + 'button_1.ini'; 
        if i = 4 then result := regist.ReadString('work-dir') + 'button_2.ini'; 
      end else ShowMessage('Schlüssel nicht vorhanden !');
     finally
      regist.Free; 
     end;