调用IE时,我要浏览几个网站,但我只要出现一个IE,怎样实现?(10分)

  • 主题发起人 主题发起人 yukaikai
  • 开始时间 开始时间
Y

yukaikai

Unregistered / Unconfirmed
GUEST, unregistred user!
譬喻我用:
winexec(IE路径 http://www.sina.com.cn,SW_show)后,又想浏览sohu,所以又用上面的语句,于是有跳出一个IE窗口。怎样在浏览sina的窗口里浏览sohu?
 
用SHELLEXECUTE直接试试网址,看行否。
 
分数少了点. :-[

用DDE吧!
var
ddeClientConv: TDdeClientConv;
begin
ddeClientConv:=TDdeClientConv.Create;
with ddeClientConv do
begin
ServiceApplication := '你的Iexplore.exe的完整路径名';
SetLink('iexplore','WWW_Activate');
RequestData('0xFFFFFFFF');
SetLink('iexplore','WWW_OpenURL');
RequestData(urllst[idx] + ',,0xFFFFFFFF,0x3,,,');
CloseLink;
end;
end;
 
忘了一点,上面代码里的urllst[idx]换成你要浏览的URL...

习习,这代码是我一个程序里面的,用来欺骗网上赚钱那类软件的.
 
MD! 又忘了一点, 注意ddeClientConv用完后要及时free.
 
谢谢cAkk,在
ServiceApplication := '你的Iexplore.exe的完整路径名';
出现错误:[Error] Unit1.pas(35): Missing operator or semicolon
不知原因。再谢!
 
ServiceApplication ::= '你的Iexplore.exe的完整路径名';
你该不会把这句话照抄下来了吧? 我的意思是用你的Iexplore.exe的完整路径名
代替那个字符串"你的Iexplore.exe的完整路径名".
;
 
当然代替了!可是好像用shellexecute可以实现。
 
可以实现就好.
 
狂谢cAkk!
接受答案!
 
后退
顶部