怎样得知当前的操作系统是否是windows xp

Question

怎样得知当前的操作系统是否是windows xp

Answer 1

procedure 2
var ver:integer;／／版本号 　 major:integer;／／主版本号 　 minor:integer;／／次版本号 
begin 
ver:=getversion();／／获得版本号 
major:=ver and 255;／／获得主版本号 
minor:=(ver and 255＊256)div 256; ／／获得次版本号 
showmessage(‘系统版本号是：’＋inttostr(ver)); ／／显示版本号 
showmessage(‘系统主版本号是：'＋inttostr(major));／／显示主版本号 
showmessage(‘系统次版本号是：'＋inttostr(minor));／／显示次版本号 
end;