Viele lokalisierte Programme bocken oft an Stellen, wo man es nicht vermutet (sonst wäre der Fehler schon früher gefunden worden
)
Zum Thema:
Es funktioniert einwandfrei.
Ich habe eben schnell was zusammengeklickt. Mit dem Schnipsel bekommst du den Wert und den Typ (dürfte in dem Fall immer Int32 sein
)
Delphi-Quellcode:
procedure TfrmTestReg.btnWrite_Click(sender: System.Object; e: System.EventArgs);
var
reg :RegistryKey;
begin
reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', true);
if txtRegWrite.Text.Trim = '' then
reg.SetValue('Miep' , Int32.Parse(txtRegRead.Text))
else
reg.SetValue(txtRegWrite.Text.Trim , Int32.Parse(txtRegRead.Text.Trim));
end;
procedure TfrmTestReg.btnRead_Click(sender: System.Object; e: System.EventArgs);
var
reg :RegistryKey;
FetchedObj :System.Object;
begin
reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', false);
if txtRegWrite.Text.Trim = '' then
FetchedObj := reg.GetValue('Miep' , -1)
else
FetchedObj := reg.GetValue(txtRegWrite.Text.Trim , -1);
txtRegRead.Text := FetchedObj.ToString;
if FetchedObj.ToString <> '' then
lblRegType.Text := FetchedObj.GetType.ToString
else
lblRegType.Text := '(null)';
end;
Edit: war wohl zu langsam, du hast es im anderen thread schon gelöst