动态修改显示器的刷新频率 ( 积分: 100 )

如何动态修改显示器的刷新频率？

procedure TForm1.ChangeSreenDisplay(x, y: Integer);
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
lpDevMode.dmPelsWidth:=x;
lpDevMode.dmPelsHeight:=y;
lpDevMode.dmDisplayFlags:=DM_DISPLAYFREQUENCY;
lpDevMode.dmDisplayFrequency:=85; //刷新频率
ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY);
end;

windows界面上的操作,微软一般都会为程序员提供相应的编程接口:即api
很明显是api的问题,要学会查;

to FishEatscat
我在网上也见到了同样的代码，试了不行的。

windows api處理

去搜索一下，我以前看到过的

我操，这个世界没有天理了～～～～～ MD,老虎不发威,当我是病猫, 先骂人的倒有理了 我可是从来不主动得罪人的 谁要是欺负人,那就不客气了 明天把这个工具开个源,叫大家都来用用 请问你们有什么拿的出手的?自己写的东西? 说出来叫大爷我长长见识？ 别不会是一群耍嘴皮子的废物吧？ 需要的请关注我的 blog http://hi.baidu.com/earthsearch