📄 动态修改显示器分辨率.htm
字号:
<HTML><HEAD><TITLE>亦多EastDoor</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR><link rel="stylesheet" href="../eastdoor.css"></HEAD>
<BODY bgColor=#ffffff text=#000066 vLink=#e0e0e0>
<TABLE align=center border=0 borderColorLight=#90 cellPadding=0 cellSpacing=0
width=753>
<TBODY>
<TR align=middle>
<TD width=200 valign="top"><img src="../image/logo.gif" width="200" height="70"></TD>
<TD align=left height=56 vAlign=top width=603 colspan="2">
<div align="right">
<a href="http://202.113.29.120/">
<img src="../image/titlesoft.gif" height="72" border="0" alt="亦多下载中心"></a>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center"></div>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR>
<TD align=middle height=292 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1
width="100%" bgcolor="#6699CC">
<TBODY>
<TR align=left bgcolor="#FFFFFF">
<TD colSpan=4 vAlign=top height=2>
<div align="left">
<table width="100%" border=" 0" cellspacing="1">
<tr bgcolor="#C1D6EA">
<td>
<div align="center">-=<font color="#FFFF33">-</font> 编程中心
<font color="#FFFF33">-</font>=-</div>
</td>
</tr>
</table>
</div>
</TD>
</TR>
<TR vAlign=middle bgcolor="#6699CC">
<TD colSpan=4 height="325">
<TABLE border=0 cellSpacing=0 height=100% width="100%" align="center">
<TBODY>
<TR vAlign=top>
<TD width="67%" rowspan="2" bgcolor="#FFFFFF">
<p align="center"><font size="3">动态修改显示器分辨率</p>
<p> Windows提供给我们两个API函数，可以动态调整显示器的分辨率， 他们是EnumDisplaySetttings()
和 ChangeDisplaySettings()， 下面这个例子就是了 <br>
<br>
function DynamicResolution(X, Y: word): BOOL; <br>
<br>
var <br>
<br>
lpDevMode: TDeviceMode; <br>
<br>
begin <br>
<br>
Result := EnumDisplaySettings(nil, 0, lpDevMode); <br>
<br>
if Result then <br>
<br>
begin <br>
<br>
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; <br>
<br>
lpDevMode.dmPelsWidth := X; <br>
<br>
lpDevMode.dmPelsHeight := Y; <br>
<br>
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
<br>
<br>
end; <br>
<br>
end; <br>
<br>
procedure TForm1.Button1Click(Sender: TObject); <br>
<br>
begin <br>
<br>
if DynamicResolution(640, 480) then <br>
<br>
ShowMessage('Now is 640*480'); <br>
<br>
end; <br>
<br>
procedure TForm1.Button2Click(Sender: TObject); <br>
<br>
begin <br>
<br>
if DynamicResolution(800, 600) then <br>
<br>
ShowMessage('Now is 800*600'); <br>
<br>
end; </p>
<p></p>
<p> </p>
</TD>
</TR>
<TR vAlign=top> </TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR bgColor=#000000>
<TD align=middle colSpan=4 height=2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
<script src="../footnote.js" class="Small" ></script>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -