我的WEB程序(100分)

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #1

我按照书上写了一个最简单的浏览器程序，使用的是TWebBrowser控件，我还要加什么程序才能是我的程序变成系统默认的浏览器啊？比如在QQ聊天里别人发我一个网址，我一点就打开了我的程序，并且打开这个网址呢？谢谢

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #2

引用Registry单元
var
ARegistry : TRegistry;
begin
ARegistry := TRegistry.Create;
with ARegistry do
begin
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('http/shell/open/command',True) then
WriteString('','你的程序.exe');
CloseKey;
Destroy;
end;
end;

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #3

没那么简单的吧。至少我的程序也要有相应的代码，才能使所有打开网页的指令有效的啊。

 

S

smithcouple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #4

不知道你的程序是多页面还是单页面的
如果是IE这种单页面，在FormCreate的时候读取ParamStr(1)到TWebBrowser的Navigate的参数中
如果是多页面，还得避免同时运行多个实例

 

M

messah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #5

smithcouple，能说详细些吗？或者有代码举例？我的程序就只有一个WEB控件。

 

S

smithcouple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #6

比如
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamStr(1) <> '' then
WebBrowser1.Navigate(ParamStr(1))
else
WebBrowser1.Navigate('about:blank');
end;

不过前提一定要先注册好默认的浏览器，否则ParamStr(1)可能什么都得不到