在自己的pb程序中动态改变屏幕分辨率

贺昌峰的Email: changfenghe@sina.com

改变显示器的分辨率程序DispSet.DLL,RELEASE版,用VC6开发，在NT40+PB7下通过

提供两个版本的程序：RELEASE和DEBUG

这部分定义在DECLARE的EXTERNAL FUNCTIONS部分

FUNCTION string GetDisplaySettings () LIBRARY "DispSet.DLL"
FUNCTION boolean SetDisplaySettings (string wh) LIBRARY "DispSet.DLL"
FUNCTION boolean ResetDisplaySettings() LIBRARY "DispSet.DLL"

这是SCRIPT部分
string wh

得到当前分辨率
wh = GetDisplaySettings()
messagebox('', WH)

wh = '800*600'
设置新分辨率
if (SetDisplaySettings(wh)) then
messagebox('ok', 'ok')
end if

恢复原分辨率
ResetDisplaySettings()

下载: dispset.zip (size: 4KB)