动态设置屏幕分辨率

Xe10.2测试可用。


function SetScreen(x, y: Word): Boolean;

var

   DevMode: TDeviceMode;

begin

   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;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678