Das könnte etwa so aussehen:
Delphi-Quellcode:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
var
wsTemp: WideString;
begin
Cancel := False;
wsTemp :=
URL;
ShellExecute(0, '
open', PAnsiChar(wsTemp),
nil,
nil, SW_SHOW);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.Navigate('
http://delphipraxis.net');
end;
Musst Du aber selbst ausprobieren. Ich hab nur das geschrieben was Sakura gesagt hat.