用delphi做浏览器,1,如何屏蔽F5键?2,到指定的地址关闭程序. (100分)

1,用delphir的控件TWebBrowser中,如何屏蔽F5的刷新键!!!

2,当URL地址到"http://www.******.***"时,程序自动结束...

3.如何得知用户可不可以上网~~~

1、截消息， 你想屏蔽哪个键都可以
var
OldWBWndProc: TWndMethod;

procedure TForm1.Loaded;
begin
inherited;
if not (csDesigning in ComponentState) then
begin
OldWBWndProc := WebBrowser.WindowProc;
WebBrowser.WindowProc := WBWndProc;
end;
end;

procedure TForm1.WBWndProc(var Message: TMessage);
begin
with Message do
begin
if (GetAsyncKeyState(VK_CONTROL) and (1 shl 16)) <> 0 then
case WPARAM of
Ord('A'):
actSelectAll.Execute;
Ord('C'), Ord('X'):
actCopy.Execute;
end;
if (Msg < (CN_BASE + WM_KEYFIRST)) or (Msg > (CN_BASE + WM_DEADCHAR)) then
OldWBWndProc(Message);
end;
end;

2、OnBeforeNavigate里判断URL

3、查找论坛以前的贴子

接受答案了.