利用delphin编程 改变屏幕分辨率 和在显示器间切换

来源：百度知道 编辑：UC知道 时间：2024/05/16 02:07:52
老师上课需要用笔记本，我想利用delphin编程 调整显示器分辨率 和改变显示输出端。邵阳v32的笔记本 sis650 芯片组
是否需要openGL或direx的编程基础？ 是否根据显卡不同而程序不同？
最好给出代码 不行则给出函数。
谢！
二楼的具体点可以吗？
谢谢 但是对于显示的输出端的改变呢？
帮忙一下 分数都归你！！！

笔记本输出端子和其屏幕的输出信号是一一对应的，改变了笔记本屏幕的分辨率就改变了输出端的显示分辨率。

Delphi提供了可以动态改变屏幕分辨率的函数，分别是EnumDisplaySettings()和ChangeDisplaySettings()。有了它们，编程时可以随时改变分辨率以适应要求。下面的CRTReset函数能方便实现这一功能：

implementation

function CRTReset(X, Y: Word): Boolean;

var

lpDevMode: TDeviceMode;

begin

Result:= EnumDisplaySettings(nil, 0, lpDevMode); //获取显示模式

if Result then begin

lpDevMode.dmFields := DM_PELSWID

TH Or DM_PELSHEIGHT;

lpDevMode.dmPelsWidth := X;

lpDevMode.dmPelsHeight := Y; //设置屏幕的宽度和高度

Result:= ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;

//改变屏幕分辨率并返回成功与否

end;

end;

procedure