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;
Var St:Array[0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(St,'http://www.sohu.com'),nil,nil,SW_SHOW);
end;
第一个.用WebBrowser的。Navigate方法。请输入第一个URL就可以了。void __fastcall Navigate(BSTR URL, TVariant* Flags=TNoParam(), TVariant* TargetFrameName=TNoParam(), TVariant* PostData=TNoParam(), TVariant* Headers=TNoParam
());第二个等楼下回答。我是不会。
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; var pvaOut: OleVariant); overload;但是具体的我也不清楚,帮你推一下