function TForm1.GetOSVersion:String;
var OSVersion:TOSVersionInfo;
begin
OSVersion.dwOSVersionInfoSize:=SizeOf(OSVersion);
GetVersionEx(OSVersion);
case OSVersion.dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS: Result:='WIN';
VER_PLATFORM_WIN32_NT: Result:='NT';
else Result:='WIN32';
end;
Result:=Result+IntToStr(OSVersion.dwMajorVersion)+'.'+IntToStr(OSVersion.dwMinorVersion);
end;
获取操作系统版本号
最新推荐文章于 2022-07-01 11:10:23 发布