Question

怎么在delphi中添加网站链接

Answer 1

1.先引用ShellAPI单元uses ShellAPI ; 2.代码中使用ShellExecute函数来实现ShellExecute(0,'open','www.qq.com',nil,nil,SW_SHOWNORMAL);{在IE浏览器中打开www.qq.com网址} 3.举例：利用label来实现网址的超链接将Label的Caption属性设为你要链接的网址，可将字体设为带下划线，Cursor属性设为crHandPoint 手形在Click事件中添加代码procedure TForm1.Label1Click(Sender: TObject);
begin
Shellexecute(0,'open',PChar(Label1.caption),nil,nil,SW_SHOWNORMAL);
end;