Hallo Dalai,
ich werde es so machen und denke, dass es mit Windows 7 bis 10 funktioniert.
Delphi-Quellcode:
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion');
s:=Reg.ReadString('ProductName');
s:=s+' '+Reg.ReadString('Releaseid');
s:=s+'.'+Reg.ReadString('CurrentBuild');
Label1.Caption:=s;
Reg.Free;
end;
Willie.