求指导！！！如何判断一段字符为链接

Question

控件Tpanel中的文本，如果出现类似“Http：//……”，怎么才能让这一段字符串显示为超链接，点击这个链接能够自动调用IE浏览器？？谢谢

Answer 1

怎么判断还是怎么显示？
判断：pos(s,'://')>1
显示：使用label，它的click事件里执行ie，参数为caption

Answer 2

function IsValidWebAddr(const AUrl: string): Boolean;
var
  s: string;
begin
  s := LowerCase(AUrl);
  Result := (Pos('ed2k://', s) = 1) or (Pos('http://', s) = 1) or (Pos('ftp://',
    s) = 1) or
    (Pos('file://', s) = 1) or (Pos('https://', s) = 1) or
    (Pos('mailto:', s) = 1) or (Pos('news:', s) = 1) or
    (Pos('www.', s) = 1) or (Pos('ftp.', s) = 1);
end;

Answer 3

如果要这个URL是否可连接的, 用SOCKET去测试连接下就行了,INDY, WINNET也行 

Answer 4

对符合链接条件的label加下划线，和点击事件。
点击时，用shellexecute执行链接命令就可以了