检测系统是不是windows xp (转)[@more@]
下面的代码可以检查所用的系统是不是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
//转载请保留此信息
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10790663/viewspace-957140/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10790663/viewspace-957140/