码迷,mamicode.com
首页 > Windows程序 > 详细

获取windows版本信息

时间:2014-07-29 20:43:02      阅读:295      评论:0      收藏:0      [点我收藏+]

标签:blog   http   os   io   for   2014   div   ar   


bubuko.com,布布扣



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;




获取windows版本信息,布布扣,bubuko.com

获取windows版本信息

标签:blog   http   os   io   for   2014   div   ar   

原文地址:http://www.cnblogs.com/xe2011/p/3875891.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!