关于网页和delphi窗口结合操作的问题？（高分求救参与者都给分）

Question

在网页中调用windows窗口?
肯定用连接。
webbrowser只能直接打开如html、asp、jpg、gif等格式的文件
要打开可执行的文件好象要在连接后面加“？”号。具体什么符号我忘了。
最后说一点。你是不是没必要这样直接用richedit多好

Answer 1

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
    If Url='' THen
            显示你的窗口
            Abort

Answer 2

应该可以了，参考：
var
  Form1: TForm1;
  AText:String;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
        WebBrowser1.Navigate('C:\My Documents\舰船知识_新浪军事_新闻中心_新浪网2.htm');
end;//指向新连接
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
        AText:=Text;
end;//打开连接
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
        Cancel:=True;
        ShowMessage(AText);
        //根据 AText 打开需要的窗口
        ShowMessage('OK');
end;