function IsWindowsVista: Boolean;
begin
  Result := GetWindowsVersion >= $06000000;
end;