Hallo,
ich hole mit die Build-Nummer von Windows 10 so:
Delphi-Quellcode:
function ErmittleWindows10Build: String;
var
Reg: TRegistry;
begin
Result := '';
try
Reg:= TRegistry.Create(KEY_READ);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion') then
begin
Result := Reg.ReadString('ReleaseId');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
except
end;
end { ErmittleWindows10Build } ;
und zwar nur dann, wenn die Major=8/Minor=2 (>=Windows 8) und die Major der kernel32.dll=10 ist.