请问DELPHI中如何使用超级连接?

谢谢各位,
急用!

解决方案 »

  1.   

    超链接，比如下段代码写在一个label的onclick事件中
    shellexecute(handle,nil,pchar('http://www.csdn.net'),nil,nil,sw_shownormal);
      

  2.   

    这个转帖是今天刚刚看到的，出自http://expert.csdn.net/Expert/topic/1335/1335398.xml?temp=.3865015DELPHI里调用Outlook:(转贴）const olMailItem = 0; 
    var Outlook: OLEVariant; 
         MailItem: Variant; 
    begin 
      try 
        Outlook := GetActiveOleObject('Outlook.Application'); 
      except 
        Outlook := CreateOleObject('Outlook.Application'); 
      end;   MailItem := Outlook.CreateItem(olMailItem); 
      MailItem.Recipients.Add('[email protected]'); 
      MailItem.Subject := 'your subject'; 
      MailItem.Body := 'http://kingron.myetang.com'; 
      MailItem.Attachments.Add('C:\Windows\system.dat'); 
      MailItem.Send; 
       
      Oulook := Unassigned; 
    end; 
    *************************
    发送HTML格式邮件
    下面的代码没有测试，因为我没有Outlook，而我又找不到Outlook express的CLSID或者ProgID……   :-(
    var
      Oe,MI:OleVariant;
    begin
      Oe:=CreateOleObject('Outlook.Application');
      MI:=Oe.CreateItem(0);
      MI.Subject:='subject';
      MI.HTMLBody:='<html>..Input your HTML Source Here....</html>';
      MI.Recipients.Add('Mail address like :[email protected]');
      MI.Send;  MI:=Unassigned;
      OE:=Unassigned;
    end;