引用System.sysutils
function getOSInfo:String;
begin
result:= fomrat('%s:%d.%d', TOSVersion.Name,TOSVersion.Major,TOSVersion.Minor] );
end;