Tja, ich bin ratlos.
Zitat von
Robert_G:
Es funktioniert einwandfrei.
Nicht bei mir.
Zitat:
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;
scheitert nach wie vor an der Fehlermeldung: Es gibt keine Version von "SetValue", die man so aufrufen kann.
Ob bitte mal andere stolze (?) Besitzer von Delphi 8 Professional ausprobieren könnten, ob der o.g. Code funktioniert? Bei mir geht´s nicht. Der "Microsoft.Win32"-Namespaces muss unter
uses eingebunden werden.