开机自动打开百度网页的delphi代码
开机自动打开百度网页的delphi代码希望得到高人指点对代码进行解释谢谢我是要编程实现开机启动...
开机自动打开百度网页的delphi代码
希望得到高人指点 对代码进行解释 谢谢
我是要编程实现开机启动 展开
希望得到高人指点 对代码进行解释 谢谢
我是要编程实现开机启动 展开
9个回答
展开全部
你想编程实现吧?楼上都没有弄明白是什么意思。
首选要让程序调用 IE 再给它一个参数 百度首页。
然后把程序放在开始——》程序——》启动里就行。
在接口部分引用ShellApi;
uses ShellApi;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, 'open', 'iexplore.exe', 'http://www.baidu.com',nil,SW_SHOW);
sleep 1000;
application.terminate;
end;
很简单,不用解释了吧。就是调用了一个函数ShellExecute而已。
首选要让程序调用 IE 再给它一个参数 百度首页。
然后把程序放在开始——》程序——》启动里就行。
在接口部分引用ShellApi;
uses ShellApi;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, 'open', 'iexplore.exe', 'http://www.baidu.com',nil,SW_SHOW);
sleep 1000;
application.terminate;
end;
很简单,不用解释了吧。就是调用了一个函数ShellExecute而已。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你在存贮一条新数据后,数据个数增加了一条,RecordCount〉0了,条件满足,自然跳出对话框。这是你设置的
存贮新数据之前,查找一下,比如 select "添加的某字段名" from 某数据表 where "某字段的内容 like 即将添加的数据"
看看有没有重复的。
然后 if mainmodel.stu_cjedit_query.RecordCount<>0 then
存贮新数据之前,查找一下,比如 select "添加的某字段名" from 某数据表 where "某字段的内容 like 即将添加的数据"
看看有没有重复的。
然后 if mainmodel.stu_cjedit_query.RecordCount<>0 then
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Delphi,在程序里放置一个WebBrowser(在Internet页面里)然后:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
就可以在你的程序里面看到百度首页了
楼主还可以看看这个
http://zhidao.baidu.com/question/41312767.html?si=2
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
就可以在你的程序里面看到百度首页了
楼主还可以看看这个
http://zhidao.baidu.com/question/41312767.html?si=2
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Delphi,在程序里放置一个WebBrowser(在Internet页面里)然后:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
就可以在你的程序里面看到百度首页了
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
就可以在你的程序里面看到百度首页了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
电脑中病毒了.或恶意的插件.建议先运行msconfig 进入启动项中把不必要的启动项取消了.如果还不行用瑞星卡卡上网安全助手 扫描一下里有不有恶意软件. 一般这种是安装了一些软件或组件造成的. 你不妨试试`!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询