获取windows版本信息





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;




posted @ 2014-07-29 16:50  XE2011  阅读(251)  评论(0)  编辑  收藏  举报