#12000/10/27 15:56:54
功能:
1.探测计算机设置的屏幕分辨率和色深(适用于Windows95/98/NT)。
2.实时控测当前的屏幕分辨率和色深(Director中“the desktopRectList”和“the colorDepth”在播映程序再次启动前,不能反映出屏幕的变化)。
3.在视频驱动充许的情况下,不必重新启动即可改变显示模式。
4.如果需要,可以改变默认显示模式、重新启动或关闭计算机。
5.重新使用显示器默认的显示模式。
使用方法:
1.register(xtra"DisplayRes",string registrationCode)
说明:注册,注册后不再出现Demo版的对话框。
举例:register(xtra "DisplayRes","48dkd2929")
后面的“”内是输入你自己的注册码。
2.dresGetDisplaySettings( )
说明:返回字符串,包含当前计算机可实现的全部的设置。每行字符串的格式是:
显示宽度(像素)、显示高度(像素)、色深、频率、扫描形式、色彩类别、能力。
举例:put dresGetDisplaySettings()
-- "640 480 4 0 noninterlaced color restart
640 480 8 0 noninterlaced color dynamic
800 600 8 0 noninterlaced color dynamic
1024 768 8 0 noninterlaced color dynamic
1152 864 8 0 noninterlaced color dynamic
1280 1024 8 0 noninterlaced color dynamic
1280 960 8 0 noninterlaced color dynamic
640 480 16 0 noninterlaced color dynamic
800 600 16 0 noninterlaced color dynamic
1024 768 16 0 noninterlaced color dynamic
1152 864 16 0 noninterlaced color dynamic
1280 1024 16 0 noninterlaced color dynamic
1280 960 16 0 noninterlaced color dynamic
640 480 32 0 noninterlaced color dynamic
800 600 32 0 noninterlaced color dynamic
1024 768 32 0 noninterlaced color dynamic
1152 864 32 0 noninterlaced color dynamic
1280 1024 32 0 noninterlaced color dynamic
1280 960 32 0 noninterlaced color dynamic"
3.dresDynamicSetDisplay ( integer lineNumber )
说明:将显示类型设置为dresGetDisplaySettings返回的类型数值,其中括号内数值是对应行号。
举例:dresDynamicSetDisplay(4)
put dresGetCurrentDisplay()
-- "1024 768 8 0 noninterlaced color dynamic"
4.dresRestartSetDisplay ( integer lineNumber )
说明:设置显示类型,并将新的设置保存为启动默认值。
举例:dresRestartSetDisplay(4)
5.dresRestart
说明:重新启动计算机。(Lingo的“restart” 在Win95/NT下无效)
举例:dresRestart
6.dresShutdown
说明:关闭计算机。(Lingo的“shutdown” 在Win95/NT下无效)
举例:dresShutdown
7.dresDefaultDisplay
说明:查找注册表中,将显示器设置为启动时的默认设置。
举例:dresDefaultDisplay
8.dresGetCurrentDisplay ( )
说明:返回当前显示器设置。可以在影片开开始时将显示器设置保存下来,影片结束时再恢复原状。
举例:on startMovie --在影片开始保存现有设置到名为"old"的文本内。
put dresGetCurrentDisplay() into field "old"
end
on stopMovie --改回原来的设置。
set savedLine = field "old"
set lineNum = findSetting(savedLine)
if lineNum > 0 then
if word 7 of savedLine = "dynamic" then
dresDynamicSetDisplay(lineNum)
else
dresRestartSetDisplay(lineNum)
dresRestart
end if
end if
end
on findSetting theLine --查找原设置在所有可能设置中的行数。
set foundLine = 0
set allSettings = dresGetDisplaySettings()
set numLines = the number of lines of allSettings
repeat with x = 1 to numLines
if line x of allSettings = theLine then
set foundLine = x
exit repeat
end if
end repeat
return foundLine
end
(以上举例皆为插件的Readme中例子)
使用举例:
test.dir(发给机器猫)