Seriennummer Informationen in Registry schreiben

[lbccaleb]

Zitat von Neumann:

Hallo,

dies funktioniert bei allen Windows-Versionen, auch wenn ESK noch nicht existiert:

Delphi-Quellcode:

try
  reg:=tregistry.Create;
  reg.RootKey:=HKey_Local_Machine;
  reg.OpenKey('Software\ESK',true);
  reg.WriteString('ID',s);
  reg.CloseKey;
except
  reg.Free;
  messagedlg(_('Nicht genügend Rechte vorhanden.')+#13+ ....
                   
end;

Erstens hat er es so wie du, und zweitens hast du es sogar falsch, da du reg nur bei einem fehler frei gibst