我是一个程序文盲,现在因需要须作一个类似于这样的程序: http://down.huan.us/huan.exe 不可ctrl+N打开新窗口,也就是说不能查看到真实网址,不可以右键点击 这是我在网上下载的代码http://www.fm992e.com/1.rar,请在基础上修改,说ShellExecute(handle, ‘open’, http:// ; www.neu.edu.cn’, nil, nil, SW_SHOWNORMAL);
的大哥就算了,我是文盲真的不知道怎么写有也是白,那位好心人直接把代码写好吧,我把我在代码写在二楼了,新人分不多,但热切需要,有时间的可以聊聊QQ:253064884
的大哥就算了,我是文盲真的不知道怎么写有也是白,那位好心人直接把代码写好吧,我把我在代码写在二楼了,新人分不多,但热切需要,有时间的可以聊聊QQ:253064884
解决方案 »
- 怎样把查询所得的字段值修饰后再添加到dbgrideh列中,30分
- 怎样用Delphi6写小票打印程序?
- IXMLDOMNodeList里怎么加入IXMLDOMNode的?
- 如何在USB摄像头的预览画面中画线?
- 在程序退出时,我加了个“是否退出系统”的提示框。请问,当我在重启机器或关机时,如何才能不让这个提示框出现?谢谢!
- 简单的ADOQUERY问题!
- 象我这样的人在北京,上海或者深圳能拿多少薪水?经验丰富的请指教
- 请问备份时如何加一个进度条?
- 我的窗體上有很多edit控件.我想當光標到達哪個edit,它的color就變為claqua.
- c翻译delphi问题(代码很少)
- 把自己的Logo拿出来秀一秀
- 关于excel导入access的问题"创建文件失败",急!在线等!谢谢
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls,ShellAPI; type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Panel1: TPanel;
Label1: TLabel;
Web: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
web.Navigate(edit1.Text);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
web.Stop;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
web.Refresh;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
web.GoBack ;
end;procedure TForm1.Button5Click(Sender: TObject);
begin
web.GoForward;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
end;end.