检测系统是不是windows xp

当然是自己了咯 专栏收录该内容
11 篇文章 0 订阅

下面的代码可以检查所用的系统是不是windows xp
uses Registry;
...

function IsWinXP: Boolean;
begin
  Result := False;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKeyReadOnly('/Software/Microsoft/Windows NT/CurrentVersion') then
        Result := (ReadString('ProductName') = 'Microsoft Windows XP');
    finally
      Free;
    end;
end;

//rock
//转载请保留此信息

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值