获得Windows的版本信息。[4]

;
  end;
  result := true;
end;

测试

procedure tform1.button1click(sender: tobject);
var
  a,b,c :string;
begin
  getversioninfo(a,b,c);
  showmessage(a + #10 + b + #10 + c);
end;

如果你得到的是'microsoft windows unknown'，请给我来信，写明你用的系统