获取windows版本信息


获取windows版本信息_第1张图片



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)