Bei Zugriffen auf HKEY_Local_Machine muss man anscheindend nach diesem
Thread hier, den Wow6432Node selber ergänzen, damit es funktioniert.
Habe ich nun mal so gemacht, funktioniert trotzdem nicht:
Delphi-Quellcode:
function RegReadStr(RegPath, RegValue:string; var Str: string;const RootKey :HKEY): Boolean;
var
Reg: TRegistry;
begin
try
Reg := TRegistry.Create;
try
Reg.RootKey := RootKey;
if IsWindows64 then begin
RegPath := ReplaceStr (RegPath, 'SOFTWARE\', 'SOFTWARE\Wow6432Node\', false);
end;
Result := Reg.OpenKey(RegPath, false);
if Result then Str:=Reg.ReadString(RegValue);
finally
Reg.Free;
end;
except
Result := False;
end;
end;
Openkey liefert schon false zurück