Delphi 改变屏幕分辨率

Delphi下改变屏幕分辨率

主要API函数

1. EnumDisplaySettings 函数帮助   http://baike.baidu.com/view/1080528.html?fromTaglist

2. ChangeDisplaySettings 函数帮助 http://baike.baidu.com/view/1080516.htm

 

function TForm1.Resolution(X, Y: Word): Boolean;
var
  DevMode: TDeviceMode;
begin
  DevMode.dmSize := SizeOf(TDeviceMode);
  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;