现在我已经把IE打开了,怎样在不关闭IE的情况下,改变网页内容?
还有为什么我打开总是用腾讯的浏览器,怎样限定只用IE?
还有为什么我打开总是用腾讯的浏览器,怎样限定只用IE?
解决方案 »
- combobox.items.addobject 只有id值该怎么付值的问题,请问具体怎么写这个语句
- 还是"类"的一个定义问题!!!!!!!!!!!
- dataconnection数据库联接。。
- 我写了一个需要在服务器上7*24小时运行的程序,为什么内存自动增长呢?
- 如何判断两个表数据相同?
- 数据库的翻译问题(OnGetText)急~~~在线等待!!
- DBNavigator的问题?
- delphi2010下Stringlist对ansiString不全支持的问题
- 再问向另一个EXE中某窗口的edit赋值??
- PageControl 和PageControl1 多页问题
- 求一个简单的sql语句,进者有分!
- 如何通过SQL语言把数据库中的数据赋值给变量?
在本程序中使用DDE客户端时用到了类TDdeClientConv的以下几个函数及过程:functionSetLink(Service:String;Topic:String):Boolean;functionOpenLink:Boolean;functionRequestData(constItem:String):Pchar;procedureCloseLink; 其中,参数Service为DDE服务器的ApplicationName,对IE来说就是Iexplore;参数Topic是DDE会话的TopicName,不同功能对应的Topic不同;参数Item为会话的ItemName,也因功能不同而不同。函数SetLink用来设置会话主题,若成功返回True,否则返回False;函数RequestData用来返回会话的数据。编写相关代码......varDDE:TDdeClientConv;//DDE为客户端全局变量implementation{$R*.DFM}//创建窗体时创建DDE客户端procedureTForm1.FormCreate(Sender:TObject);beginDDE:=TDdeClientConv.Create(Self);end;//单击OpenIE启动默认浏览器并自动打开指定的网页
(若IE不是默认浏览器,需手工打开)procedureTForm1.Button3Click(Sender:TObject);begin//调用ShellExecute打开默认浏览器,将窗口模式设为SW_SHOWNORMALShellExecute(Handle,nil,PChar
('http://www.chinaren.com/index.shtml'),nil,nil,SW_SHOWNORMAL);end;//单击GetURL按钮获取IE地址栏URL以及对应窗口标题procedureTForm1.Button1Click(Sender:TObject);begin//设置会话连接成功ifDDE.SetLink('Iexplore','WWW_GetWindowInfo')thenbeginDDE.OpenLink;//返回信息并在组件Edit1中显示Edit1.Text:=DDE.QequestData('-1');DDE.CloseLink;endelseShowMessage('IE没在运行');end;//单击OpenURL按钮链接到指定网页procedureTForm1.Button2Click(Sender:TObject);beginifDDE.SetLink('Iexplore','WWW_OpenURL')thenbegin//链接到指定Web页DDE.OpenLink;DDE.RequestData(Edit2.Text);DDE.CloseLink;endelseShowMessage('IE没在运行');end;//单击ActivateIE按钮激活最近打开的IE窗口procedureTForm1.Button4Click(Sender:TObject);beginifDDE.SetLink('Iexplore','WWW_Activate')thenbeginDDE.OpenLink;DDE.RequestData('-1');DDE.CloseLink;endelseShowMessage('IE没有运行');end;//单击CloseIE按钮关闭最近打开的IE窗口procedureTForm1.Button5Click(Sender:TObject);beginifDDE.SetLink('Iexplore','WWW_Exit')thenbeginDDE.OpenLink;DDE.RequestData('WWW_Exit');DDE.CloseLink;endelseShowMessage('IE没有运行');end.
楼主的默认浏览器是 TE,不是 IE,到 IE 的设置中改回来就行了。
刷新网页可以吧?
编程可以通过发送交换文本,或者发送命令或宏给另一个程序。这样你的程序就可控制,操作另一个程序
haha 第一个不会 第二个 不难