這段是取第二屏解析度
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;
但是此函式只能改第一屏,我要的是改第二個屏怎么辦呢.
uj5u.com熱心網友回復：
EnumDisplayDevices：列舉顯示設備； EnumDisplaySettings：檢索顯示設備支持的圖形模式。uj5u.com熱心網友回復：
https://www.cnblogs.com/FuYan/p/4972894.html看這個uj5u.com熱心網友回復：
ChangeDisplaySettingsExuj5u.com熱心網友回復：
https://baike.baidu.com/item/ChangeDisplaySettingsEx/6379797使用 ChangeDisplaySettingsEx 這里祥細引數使用介紹。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/37811.html
上一篇：想做個dbgrid 的 樹狀結構顯示 沒有思路 求大佬給點思路
下一篇：oracle資料匯入sql中