怎样控制IE及其它浏览器的运行?(50分)

  • 主题发起人 主题发起人 zhengyong
  • 开始时间 开始时间
Z

zhengyong

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样控制IE及其它浏览器的运行?
即怎样得知浏览器启动,怎样关闭浏览器?
 
---- 如果你的软件的外部环境是WIN95+IE或WIN98(这样的软件使用率还很高的),那样在系统中就已经有了一个IE浏览器控件可以使用了,也许是你长时间没有发觉吧,别浪费资源了,拿来使用吧。当系统中已经安装了IE3.X或IE4.X时,IE浏览器控件已经注册到系统中了,请运行Regedit,用“编辑”菜单下的“查找”功能,查找“Shell.Explorer”键名,你会发现 IE控件已经作为ActiveX控件注册在系统中了,这样就我们可以在Delphi中使用该控件了。

在Delphi中引入IE浏览器控件
---- 由于IE浏览器控件需要提供显示功能才能使用,所以不能在程序中用CreateOleObject取得一个实例后直接使用其属性和方法,否则程序在运行时会引起错误;这时需要用Delphi中提供的 “Import ActiveX Control”功能,操作方法见下所述。
---- 在“Components”菜单中,调用“Import ActiveX Control”功能,在Registered Controls (注册控件)列表中选择“Microsoft Internet Controls(Version1.1)”,下方的提示栏中显示出其路径为C:/PWin98/System/SHDOCVW.DLL,在Class Names(类型列表)中列出了可注册的三个控件: TWebBrowser_V1、TWebBrowser和TShellFolderViewOC,分别为IE3浏览器控件、IE4浏览器控件和 “Microsoft外壳文件夹查看路由器”控件。单击Install进行安装。安装完成后,在“ActiveX” 控件栏中,将增加三个控件,分别为TWebBrowser_V1、TWebBrowser和TShellFolderViewOC;在 Delphi的Imports目录下,将创建一个文件SHDocVw_TLB.PAS,其中有这三个控件的包装细节,当然含控件的属性和方法说明了,它可以作为我们使用控件的参考资料。
 
想要具体的程序吗??加分!!!!!!!!!!
 
可以用shellex实现
 
www:
您好!!!
非常希望能把程序E-MAIL过来。(zhengyong@telekbird.com.cn)
关于分数的事。。。。。。
 
直接参见我写的大富翁论坛离线浏览器就可以了。
里面就用到了。

Absoludly Open Source . 你不需要给任何酬劳。

如果编译通不过,就把提示找不到的uses 去掉。
 
非常感谢 曹晓钢 给俺指了一条路!!!
但我想大家好像把我的问题理解错了,或许是我讲得不够明确。

我的目的是想:在自已的程序中“得知”外部的浏览器(如IE)是否已运行?
if /已运行/
if 不符合自定的运行条件
/则在程序中关闭外部已启动的浏览器./
else
。。。
主要是想得到/.../中的实现方法!
希望各位大虾能再指点一二,谢谢!!!
 
是否运行可以看看 findwindow
结束运行,直接postmessage
 

请问findwindow和postmessage
中的参数各怎样填?:(


 
大富翁论坛离线浏览器 源码 从哪里可以得到?
谢谢.
 
POSTMESSAGE(WM_CLOSE,hwndofie4,0,0);
 
HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部