procedure TForm1.WndProc(var Message: TMessage);
var
    p: TENLink;
    strURL: string;
begin
    if (Message.Msg = WM_NOTIFY) then //测试中发显示始终不等WM_NOTIFY
    begin
        if (PNMHDR(Message.LParam).code = EN_LINK) then
        begin
            p := TENLink(Pointer(TWMNotify(Message).NMHdr)^);
            if (p.msg = WM_LBUTTONDOWN) then
            begin
                SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LongInt(@(p.chrg)));
                strURL := RichEdit1.SelText;
                ShellExecute(Handle, 'open', PChar(strURL), nil, nil, SW_SHOWNORMAL);
                RichEdit1.SelLength := 0;
            end
        end
    end;
    inherited;
end;