Registry und DWORDs

[Robert_G]

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