ShellExecute(Handle,pchar('open'),pchar('http://www.163.Com'),nil,nil,SW_SHOW);
解决方案 »
- 欢迎大家加盟QQ群:Delphi高手突破(群号:1463857) 共同讨Delphi技术,共同交流,共同进步!
- 求adoquery删除语句,菜鸟问题,在线等!!!!!!
- 请教前辈:3-4个客户端的网络版管理系统用什么架构?
- 有办法让 WebBrowser 只显示文本(不显示图片以及Flash对象等) 吗?
- 为何这个类语法通不过?高手指教!
- 各位中国人,注意了!!!必看!!!!
- 请问怎样在我的组件中加入自定义事件
- 问一个关于sql的简单问题。急,在线等待。
- 窗口如何自动关闭,帮忙看一下,先谢各位了
- 用什么技术如何完成,大家来讨论一下:(分数随时追加)
- 关于把jpg写入流进行网络传输的问题?
- 怎样把dbimage的图象复制到剪切板中?
ShellExecute(handle,pchar('open'),pchar('iexplore.exe'),pchar(‘http://www.163.com'),nil,SW_MAXIMIZE);
procedure TForm1.Button1Click(Sender: TObject);
var
IE:Variant;
begin
IE:=CreateOLEObject('InternetExplorer.Application');
Try
IE.Navigate('e:\北京人都是活雷锋_影行天下_新浪网.htm');
IE.Visible:=True;
Except
IE:=CreateOLEObject('InternetExplorer.Application');
IE.Navigate('e:\北京人都是活雷锋_影行天下_新浪网.htm');
IE.Visible:=True;
end;