DELPHI 求获取和调节屏幕分辨率的API函数 <多屏>

Question

这段是取第二屏分辨率
ShowMessage('当前分辨率是:' + IntToStr(MyScreen.Monitors[1].Width)+'X'+ IntToStr(Screen.Monitors[1].Height));
网上找的改分辨率函数 function SetScreen(X,Y:Word):Boolean;
 var
   DevMode:TDeviceMode;
   begin
     Result:=EnumDisplaySettings(nil,0,DevMode);
     if Result then
     begin
       DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
       DevMode.dmPelsWidth:=X;
       DevMode.dmPelsHeight:=Y;
       Result:=ChangeDisplaySettings(DevMode,0) =DISP_CHANGE_SUCCESSFUL;
     end;
   end;
但是此函数只能改第一屏,我要的是改第二个屏怎么办呢.

Answer 1

EnumDisplayDevices：枚举显示设备； EnumDisplaySettings：检索显示设备支持的图形模式。

Answer 2

https://www.cnblogs.com/FuYan/p/4972894.html看这个

Answer 3

ChangeDisplaySettingsEx

Answer 4

https://baike.baidu.com/item/ChangeDisplaySettingsEx/6379797
 使用   ChangeDisplaySettingsEx 这里祥细参数使用介绍。