F
feifan
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个函数：
function DynamicResolution(X,Y:Word):Bool;
var
lpDevMode:TDeviceMode;
begin
Result := EnumDisplaySettings(nil,0,lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode,0) = Disp_Change_successful;
end;
end;
这个函数能改变分辨率，但有时却影响到刷新率！
各位仁兄，不知我怎么才能在不改变刷新率的情况下，改变分辨率!
function DynamicResolution(X,Y:Word):Bool;
var
lpDevMode:TDeviceMode;
begin
Result := EnumDisplaySettings(nil,0,lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode,0) = Disp_Change_successful;
end;
end;
这个函数能改变分辨率，但有时却影响到刷新率！
各位仁兄，不知我怎么才能在不改变刷新率的情况下，改变分辨率!