一聚教程网：一个值得你收藏的教程网站

ps教程| flash教程| 路由器设置| Jsp教程| 加入收藏

PHP教程 Css教程 操作系统 数据库 安卓下载

首页 游戏下载 软件下载 专题 资讯教程 php教程 asp.net教程 css教程 网页制作 网页特效 手机开发 办公数码
+ -
当前位置：一聚教程网 > 网页制作 > 设计基础

推荐专题

最新下载

热门教程

Delphi判断当前系统版本

时间：2022-06-25 14:40:32 编辑：袖梨 来源：一聚教程网

 代码如下 复制代码
function GetWinVer: string;
var lpver:_OSVERSIONINFO;
begin
    //###########获取Win系统版本################
    lpver.dwOSVersionInfoSize:=SizeOf(_OSVERSIONINFO);
    //###########必须要分配内存#################
   if  GetVersionExA(lpver) then
   begin
     case lpver.dwPlatformId of
        0:
        Result:='Windows 32s';
        1:begin
          case lpver.dwMinorVersion of
             0:
             Result:='Windows 95';
             10:
             Result:='Windows 98';
             90:
             Result:='Windows Me';
          end;
        end;
        2:begin
          case lpver.dwMajorVersion of
              3:
              Result:='WindowsNT 3.51';
              4:
              Result:='WindowsNT 4.0';
              5:begin
                case lpver.dwMinorVersion of
                    0:
                    Result:='Windows 2000';
                    1:
                    Result:='Windows XP';
                    2:
                    Result:='Windows 2003';
                end;
              end;
              6:begin
                case lpver.dwMinorVersion of
                    0:
                    Result:='Windows Vista';
                    1:
                    Result:='Windows 7';
                    2:
                    Result:='Windows 8';
                end;
              end;
          end;
        end;
        else
        Result:='Not Windows';
     end;
   end;
end;

相关文章

热门栏目

一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明

copyRight@2007-2022 www.111CN.NET AII Right Reserved

网站内容来自网络整理或网友投稿如有侵权行为请邮件:[email protected] 我们24小时内处理