为更好体现程序的外观效果及其他特殊要求，有时要在程序中修改当前屏幕的分辩率，可利用下面这个函数：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
function ChangeDisplay(width, height: Word): BOOL; var lpDevMode: TDEVICEMODe; begin result := EnumDisplaySettings(Nil, 0, lpDevMode); if result then begin lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY; lpDevMode.dmPelsWidth := width; lpDevMode.dmPelsHeight := height; lpDevMode.dmDisplayFrequency := 60; result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL; end; end; |
