获取windows版本信息
时间：2014-07-29 20:43:02
收藏：0
阅读：295
procedure TForm1.Button1Click(Sender: TObject);
Var
OSVI:OSVERSIONINFO;
begin
OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO);
GetVersionEx(OSVI);
Caption:=IntToStr(OSVI.dwMinorVersion)+‘,‘
+IntToStr(OSVI.dwMinorVersion)+‘,‘
+IntToStr(OSVI.dwBuildNumber)+‘,‘
+IntToStr(OSVI.dwPlatformId)+‘,‘
+OSVI.szCSDVersion;
end;
评论（0）