我的csdn博客地址: http://blog.csdn.net/blizzardlyk

QTP中获取当前系统分辨率

上一篇 / 下一篇  2010-08-25 10:46:05 / 个人分类:QTP

利用Description创建对象,分别获取桌面的高度和宽度


Public Function get_res()
Set progman = Description.Create
progman("Object Class").Value = "Progman"
progman("Text").Value = "Program Manager"
get_res = Window(progman).GetROProperty ("width") & "*" & Window(progman). GetROProperty ("height")
End Function


msgbox get_res()


TAG: QTP 系统分辨率

 

评分:0

我来说两句

Open Toolbar