检测系统是不是windows xp

下面的代码可以检查所用的系统是不是windows xpuses 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//转载请保留此信息