shellexcute......我用ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);只能生成一个ie浏览窗口请大家帮帮忙不胜感激
~~~~~
~~~~~
解决方案 »
- 请高手指教,如何隐藏文件夹或根目录
- ★各位用过OPENGL 或 GLScene的前辈,请看看下面这个问题??? 以前也问过,但没解决,哈哈,重新再来
- 实达2110EH ADSL路由自动上网配置,在线等待...
- 急急急急急急急急急急急急急
- 如何在选择RadioButton1之后,让程序知道需要发送的是数字“1”?
- DELPHI5怎么做托盘呀!
- 急!
- 为什么会出现这种错误,不知道也来看看啊(up有分)
- 为什么这段程序无法把相应的信息保存到数据库啊?
- 如何kill 掉一个dcom......?
- 急急如何把rtf格式的字符串导入到word里 分不够才加
- 求SQL语句(sql server数据库),关于查询日期问题.adoquery.sql.add('select 数量 from table where 日期= '+datetostr(date));为什么查不
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
....此处略去10000行
ShellExecute(Handle,0,PChar(s),'','',SW_SHOW);
我试了,不行不信你可以尝试一下
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:='www.qq.com';
for i:=1 to 5 do
WinExec(Pchar('C:\Program Files\Internet Explorer\IEXPLORE.EXE '+s),9);
end;