系统版本号

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;