Seriennummer Informationen in Registry schreiben

[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;

[JannesDKS]

Hey,

ich steh derzeit vor der gleichen Problematik:

http://www.delphipraxis.net/153943-r...ml#post1043950

Ich werd hier auch meine Lösung posten, sobald ich sie gefunden habe
LG

[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