用Delphi实现控制IE窗体的大小 ——IESizer

　　做过网页的朋友都知道，在设计网页的时候有一个很重要的问题，就是要使网页在不同的分辨率（体现在可视屏幕大小）下都能有良好的显示效果；另外有些时候可能要做一些特殊用途的网页（例如广告或通告等页面），当设计网页时或许就需要频繁地测试在不同的浏览器大小下的效果。这些时候，我们总不能不停地更改系统分辨率吧？！（累死人而且没效率，呵呵）
　　要是能随心所欲的控制浏览器的大小该多好！有朋友肯定会说：“那些自动弹出来的广告窗口不就是都能用Javascript控制大小的嘛。”对了！既然连Javascript都能通过调用函数来控制浏览器的窗体大小，那强大的Delphi也肯定行！想到这里，我马上卷起了袖子，准备给自己做一个控制浏览器窗体大小的程序（当前使用的最多的浏览器非IE莫属，我们就先来尝试控制IE的大小）。
　　首先我们来分析一下程序需要实现的功能：
① 启动程序后，由于当前没有一个IE窗体受控于本程序，所以在按下窗体中的控制按钮后先需要打开一个新的IE窗体，然后将这个IE窗口设置为指定的宽度（Width）和高度（Height）；
② 在运行过程中，每当控制按钮被按下，先判断那个通过本程序打开的IE窗口是否存在，如果存在就调整其宽度和高度为当前指定值，否则就新开一个IE窗体然后再设置其大小；
　　初步功能看似很简单，但对于菜鸟我来说还真是花了不少时间才得以实现。通过查阅了相关书籍和MSDN，我找到了一些实现这个程序所需的信息。
　　下面我们先来了解以下一些函数：
① GetWindowsDirectory()：返回Windows系统目录路径。
② WinExec()：运行指定应用程序。
MS建议在运行Win32程序时使用CreateProcess()函数。但由于WinExec()调用起来比较方便，而且它是以同步的方式运行（也就是说在函数所运行的那个程序启动完成之前函数将一直等待，这正是我们这个程序所需要的方式），所以在这个程序里我使用了WinExec()；而CreateProcess()默认是异步的（它不等待其创建的子进程完成初始化，而是直接返回），需要配合使用WaitForInputIdle()函数来实现同步。
③ GetWindow()：搜索并返回一个与指定窗体有指定关系（Z顺序或为所有者）的窗体的句柄。
④ GetClassName()：返回指定窗体所属的窗体类名。
上网搜索得知MS Internet Explorer的窗体类名是“IEFrame”。
⑤ SetWindowPos()：改变指定窗口的大小、位置等等属性。

　　OK，有了以上这些函数，我们便可以开始动手写代码了。

……

IESizer 软件下载：http://free.efile.com.cn/islet8/IESizer/IESizer.rar
《IESizer程序原理分析》：http://free.efile.com.cn/islet8/IESizer/IESizer_Doc.doc
IESizer 源代码下载：http://www.softreg.com.cn/download.asp?id=/963E8087-722D-4D77-B00D-E3125DFC66AA/

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有