hi
also ich will per TRegistry werte aus der registry auslesen
doch irgendwie sind meine variablen leer, bzw der text im edit ist vergleichsweise leer (das
os zieh ich mir vorher schon anders...)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.OpenKeyReadOnly('
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
osname:=reg.ReadString('
ProductName');
version:=reg.ReadString('
CurrentVersion');
user:=reg.ReadString('
RegisteredOwner');
org:=reg.ReadString('
RegisteredOrganization');
Servicepack:=reg.ReadString('
CSDVersion');
Edit1.Text:='
OS: '+
os+'
- '+osname+'
'+version+'
+++ '+user+'
- '+org+'
+++ '+servicepack+'
+++ ';
end;
is da ein denkfehler drin, oder falsch geproggt, oder warum funzt das nicht?