请问在程序中怎样设置屏幕分辨率？参与有分。

Question

uses shellapi;
var devmode:tdevicemode;
    begin
      x:=640;
      y:=480;
      result:=enumdisplaysettings(nil,0,devmode);
      if result then
      begin
        devmode.dmfields:=dm_pelswidth or dm_pelsheight;
        devmode.dmpelswidth:=x;
        devmode.dmpelsheight:=y;
        changedisplaysettings(devmode,0);
      end;

Answer 1

肯定好使
您可以将它改为x:=800;y:=600
这是我做的类冰河软件的源代码
运行环境:pwin98/pwin2k

Answer 2

可以用
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;