CMD mit Output

[Willie1]

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.