请教高手,如何写打开一个网址的代码? ( 积分: 100 )

  • 主题发起人 主题发起人 zhaoshuming
  • 开始时间 开始时间
Z

zhaoshuming

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟刚学,不知道如何写打开一个网址的代码?就像写asp里的<a href=""></a>超链接一样能打开一个网址。
 
小弟刚学,不知道如何写打开一个网址的代码?就像写asp里的<a href=""></a>超链接一样能打开一个网址。
 
在uses那里引用 shellapi,然后在单击按钮里输入:
ShellExecute(handle,'open',pchar('http://www.delphibbs.com'),nil,nil,SW_SHOW);
 
function OpenIE(const URL:string):Variant;
begin
Result:= CreateOLEObject('InternetExplorer.Application');
Result.Visible := True;
Result.Navigate(URL);
end;
 
多人接受答案了。
 
在uses那里引用 shellapi,然后在单击按钮里输入:
ShellExecute(handle,'open',pchar('http://www.delphibbs.com'),nil,nil,SW_SHOW);
这个最简单实用
 
后退
顶部