改变当前屏幕的分辨率delphi代码

时间:2010-01-26 12:53:12  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:p; if Result then  begin    lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;    lpDevMode.dmPelsWidth := X;    lpDevMode.dmPelsHeight := Y;    Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;  ...
  正文:

//改变分辨率
function TForm1.DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
ENUM_CURRENT_SETTINGS:DWORD;
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;

"改变当前屏幕的分辨率delphi代码"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/JSP/12410.html


关键字:

关于《改变当前屏幕的分辨率delphi代码》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td