相对用第三方控件，CDO发送邮件还是很简洁方便的
注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;
单元引用ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
  vCDOMessage:=CreateOleObject('CDO.Message');
  vcdomessage.from:='MR.F'+'<XXXX@163.com>';              //加号前面为发件人显示名称，加号后面为发件人邮箱；
  vcdomessage.to:='XXXX@qq.com';                    //收信人的邮箱
  vcdomessage.Subject:='测试';                           
  vcdomessage.TextBody:='发送成功';
  vcdomessage.addAttachment('XXXX');              //附件，引号内为 ......

delphi TWebBrowser组件使用详解
      该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该
      组件在Internet组件页中。
      1．属性
      （1）AddressBar属性
      设置是否显示地址栏，在TWebBrowser中没有用。
      语法：
      property AddressBar: WordBool;
      （2）Busy属性
      确定Web浏览器组件是否正在导航到一个新的URL地址或正在下载文档。
      语法：
      property Busy: WordBool;
      示例：
      如果该属性值为True，则在开始一个新的操作前，可用Stop方法中止当前操作，然后再导航到其他的页面，代码如下：
      procedure ......

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的
DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.HashValue('');
ShowMessage('32: ' + MyMD5.AsHex(Digest));  //显示32个字符长度的MD5签名结果
ShowMessage('16: ' + Copy(MyMD5.AsHex(Digest), 9, 16));  
//显示16个字符长度的MD5签名结果
end;
说 明：
  MyMD5.HashValue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 T4x4LongWordRecord
的MD5签名后结果
  MyMD5.AsHex  函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。 ......

function BOX_show(e,obj)//显示
{
    if(obj<24)
        document.cookie = "tdid="+obj;
    if(document.getElementById(e)==null)
    {
        return ;
    }
    var selects = document.getElementsByTagName('select');
    for(i = 0; i < selects.length; i++)
    {
        selects[i].style.visibility = "";
    }
    BOX_layout(e);
    window.onresize = function(){BOX_layout(e);} //改变窗体重新调整位置
    window.onscroll = function(){BOX_layout(e);} //滚动窗体重新调整位置
    document.onkeyup = function(event)
    {
        var evt = window.event || event;
        var code = evt.keyCode?evt.keyCode : ......

在silverlight开发中，我们可以使用js来调用silverlight中的方法（当然方法上要捆绑相应属性），也可以将指定
的js方法绑定到silverlight应用中的事件上．本DEMO演示了通过js调用完成silverlight数据列表控件(DataGrid)的数
据绑定操作，并通过DataGrid的EmployeeList_BeginningCellEdit事件将当前选取的数据行信息返回到js所绑定的
事件参数上，并调用该js方法显示选中数据行信息，如下图所示:
           
  
     下面介绍一下主要的开发过程:)
  
     首先，我们需要建立一个Silverlight Application ，名称为：Silverlight_JS_call.
  
     然后我们要在当前的项目中加入一个类文件，名称为：EmployeeInfo.cs.
  
     下面是相应的代码，相关内容见注释:  
[ScriptableType]
public class EmployeeInfo
{
    /// <summary>
    /// 雇员编号
    /// </summary>
& ......

    IE   event.keyCode
keycode    8 = BackSpace BackSpace
keycode    9 = Tab Tab
keycode   12 = Clear
keycode   13 = Enter
keycode   16 = Shift_L
keycode   17 = Control_L
keycode   18 = Alt_L
keycode   19 = Pause
keycode   20 = Caps_Lock
keycode   27 = Escape Escape
keycode   32 = space space
keycode   33 = Prior
keycode   34 = Next
keycode   35 = End
keycode   36 = Home
keycode   37 = Left
keycode   38 = Up
keycode   39 = Right
keycode   40 =&nbs ......