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

王朝delphi·作者佚名 2006-01-09

做过网页的朋友都知道，在设计网页的时候有一个很重要的问题，就是要使网页在不同的分辨率（体现在可视屏幕大小）下都能有良好的显示效果；另外有些时候可能要做一些特殊用途的网页（例如广告或通告等页面），当设计网页时或许就需要频繁地测试在不同的浏览器大小下的效果。这些时候，我们总不能不停地更改系统分辨率吧？！（累死人而且没效率，呵呵）

要是能随心所欲的控制浏览器的大小该多好！有朋友肯定会说：“那些自动弹出来的广告窗口不就是都能用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，有了以上这些函数，我们便可以开始动手写代码了。

……