CSDN博客

img ypyRock

检测系统是不是windows xp

发表于2002/1/11 9:39:00  1045人阅读

下面的代码可以检查所用的系统是不是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

相关博文

我的热门文章

img
取 消
img