取屏幕宽度和高度GetDeviceCaps函数

取屏幕宽度和高度GetDeviceCaps函数开源。本实例转至Delphi的一个Setscn.dll动态库 。