📄 tszs1.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>动态调整显示器的分辨率</title>
</head>
<body>
<pre>Windows提供给我们两个API函数，可以动态调整显示器的分辨率， 他们是EnumDisplaySettings()
和 ChangeDisplaySettings()， 下面这个例子就是了 </pre>
<pre><strong>function</strong> DynamicResolution(X, Y: word): BOOL;
<strong>var</strong>
lpDevMode: TDeviceMode;
<strong>begin</strong>
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
<strong>begin</strong>
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
<strong>end</strong>;
<strong>end</strong>;
<strong>procedure</strong> TForm1.Button1Click(Sender: TObject);
<strong>begin</strong>
if DynamicResolution(640, 480) then
ShowMessage('Now is 640*480');
<strong>end</strong>;
<strong>procedure</strong> TForm1.Button2Click(Sender: TObject);
<strong>begin</strong>
if DynamicResolution(800, 600) then
ShowMessage('Now is 800*600');
<strong>end</strong>;</pre>
</body>
</html>
<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -