===========================================================
检测系统是不是windows xp (转)
===========================================================
作者: amyz(http://amyz.itpub.net)
发表于: 2008.03.22 16:52
分类: 一般分类
出处: http://amyz.itpub.net/post/34151/457920
---------------------------------------------------------------
发表于: 2008.03.22 16:52
分类: 一般分类
出处: http://amyz.itpub.net/post/34151/457920
---------------------------------------------------------------
检测系统是不是windows xp (转)
下面的代码可以检查所用的系统是不是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('Softwaremicrosoftwindows NTCurrentVersion') then
Result := (ReadString('ProductName') = 'Microsoft Windows XP');
finally
Free;
end;
end;
//rock
//转载请保留此信息
