procedure TmAbout.Label3Click(Sender: TObject);
Var St:Array[0..255] of char;
begin
  ShellExecute(Handle,'open',StrPCopy(St,'http://www.sohu.com'),nil,nil,SW_SHOW);
end;

解决方案 »

  1.   


    第一个.用WebBrowser的。Navigate方法。请输入第一个URL就可以了。void __fastcall Navigate(BSTR URL, TVariant* Flags=TNoParam(), TVariant* TargetFrameName=TNoParam(), TVariant* PostData=TNoParam(), TVariant* Headers=TNoParam
    ());第二个等楼下回答。我是不会。
      

  2.   

    第二个问题可能要通过activex的olevariant来解决的
    procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); overload;但是具体的我也不清楚,帮你推一下