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

类别:Delphi 点击:0 评论:0 推荐:

  做过网页的朋友都知道,在设计网页的时候有一个很重要的问题,就是要使网页在不同的分辨率(体现在可视屏幕大小)下都能有良好的显示效果;另外有些时候可能要做一些特殊用途的网页(例如广告或通告等页面),当设计网页时或许就需要频繁地测试在不同的浏览器大小下的效果。这些时候,我们总不能不停地更改系统分辨率吧?!(累死人而且没效率,呵呵)
  要是能随心所欲的控制浏览器的大小该多好!有朋友肯定会说:“那些自动弹出来的广告窗口不就是都能用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/

本文地址:http://com.8s8s.com/it/it5012.htm