程序说明
　　function Tform.dynamicresolution(x,y:word):bool;
　　var lpDevMode:TDeviceMode;
　　begin
　　 result:=EnumDisplaySettings(nil,0,lpDevMode);
　　//EnumDisplaySettings(nil,0,lpDevMode)函数用来取得当前的分辨率，并存在lpDevMode中，nil应该是用来指明返回的指针为空，0我觉得是dc号。
　　 if result then
　　 begin
　　 lpDevMode.dmFiles:=DM_PELSWIDTH OR DM_PELSHEIGHT;
　　//这里不用的话，显示颜色变少，感觉会掉色；
　　 lpDevMode.dmPelswidth:=x;
　　 lpDevMode.dmPelsHeight:=y;
　　 result:=changdisplaysettings(lpDevMoide,0)=disp_change_successful;
　　 end;
　　end;