[原创] 用Delphi实现控制IE窗体的大小——IESizer程序原理分析 (2003-12)

做过网页的朋友都知道，在设计网页的时候有一个很重要的问题，就是要使网页在不同的分辨率（体现在可视屏幕大小）下都能有良好的显示效果；另外有些时候可能要做一些特殊用途的网页（例如广告或通告等页面），当设计网页时或许就需要频繁地测试在不同的浏览器大小下的效果。这些时候，我们总不能不停地更改系统分辨率吧？！（累死人而且没效率，更何况有谁会这么傻傻的做呢，呵呵）
要是能随心所欲的控制浏览器的大小该多好！有朋友肯定会说：“那些自动弹出来的广告窗口不就是都能用Javascript控制大小的嘛。”对了！既然连Javascript都能通过调用函数来控制浏览器的窗体大小，那强大的Delphi也肯定行！想到这里，我马上卷起了袖子，准备给自己做一个控制浏览器窗体大小的程序（当前使用的最多的浏览器非IE莫属，我们就先来尝试控制IE的大小）。

首先我们来分析一下程序需要实现的功能：
① 启动程序后，由于当前没有一个IE窗体受控于本程序，所以在按下窗体中的控制按钮后先需要打开一个新的IE窗体，然后将这个IE窗口设置为指定的宽度（Width）和高度（Height）；
② 在运行过程中，每当控制按钮被按下，先判断那个通过本程序打开的IE窗口是否存在，如果存在就调整其宽度和高度为当前指定值，否则就新开一个IE窗体然后再设置其大小；
初步功能看似很简单，但对于菜鸟我来说还真是花了不少时间才得以实现。通过查阅了相关书籍和MSDN，我找到了一些实现这个程序所需的信息。
下面我们先来了解以下一些函数：
① GetWindowsDirectory()：返回Windows系统目录路径。
函数原型：
UINT GetWindowsDirectory(
 LPTSTR lpBuffer,    // 指针指向Windows目录缓冲的地址
 UINT uSize      // 目录缓冲的大小
);
② WinExec()：运行指定应用程序。
函数原型：
UINT WinExec(
 LPCSTR lpCmdLine,    // 指针指向命令行的地址
 UINT uCmdShow    // 新运行的程序的窗体类型
);
MS建议在运行Win32程序时使用CreateProcess()函数。但由于WinExec()调用起来比较方便，而且它是以同步的方式运行（也就是说在函数所运行的那个程序启动完成之前函数将一直等待，这正是我们这个程序所需要的方式），所以在这个程序里我使用了WinExec()；而CreateProcess()默认是异步的（它不等待其创建的子进程完成初始化，而是直接返回），需要配合使用WaitForInputIdle()函数来实现同步。
③ GetWind