救命!拜求各位老大一个关于IE的问题 小弟初学dephi,想请老大一个问题,希望赐教如何一运行程序便打开一个指定url,指定大小的IE窗口?请详细告之,小弟拜谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 shellexecute可以看api帮助,如shellexecute(handle,nil,'http://www.ctrdata.com',nil,nil,sw_normal);还有要引用shellapi单元 uses Comobj, ... ... ;{...}var Form1: TForm1; IEApp: Variant;{...}procedure TForm1.Button1Click(Sender: TObject);begin IEApp := CreateOLEObject('InternetExplorer.Application'); IEApp.visible := true; IEApp.Top := 0; IEApp.Left := 0; IEApp.width := screen.width; //可改你需要的宽度 IEApp.height := screen.height;//可改你需要的高度 IEApp.Navigate('http://www.csdn.net');end; 很忙,很少来,冒个泡 如何通过程序动态的恢复SQL数据库?????????? 如何判断一个数据集是否打开?急!! 求一sql语句 关于scrollbox的问题。在线等待 万能查询 簡單問題有請。。。 局域网内如何得到主机的IP地址? 记录为什么不能提交? 怎样让WINDOWS重新读注册表 HTML文件的预览 问题?DBEDIT,有点麻烦,不知何故,肯请帮忙,谢谢了.
shellexecute(handle,nil,'http://www.ctrdata.com',nil,nil,sw_normal);
还有要引用shellapi单元
Form1: TForm1;
IEApp: Variant;{...}procedure TForm1.Button1Click(Sender: TObject);
begin
IEApp := CreateOLEObject('InternetExplorer.Application');
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width; //可改你需要的宽度
IEApp.height := screen.height;//可改你需要的高度
IEApp.Navigate('http://www.csdn.net');
end;