引言： 陈旭波
“邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的EMS，能够直接把邮件送到对方的邮箱中，邮件发送完毕后，对方就可以立刻收到。
摘要：检查声卡是否安装
uses mmsystem;
...
function soundkarte:boolean;
begin
result := waveoutgetnumdevs >0;
end;
检测声卡存在
如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsyst......
摘要：文/宋爽
本例中tregistry是关键类，delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“readstring”和“writestring”来读出和写入字符，亦可通过其方法“readdate”和“writedate”来读出和写入日期。
程序第一次运行就写入其运行时间，应用期限为30天，超过30天就不再运行。全局变量noregistry、sp......
用Delphi编写邮件特快专递程序陈旭波
【程序编程相关:
取应用程式的版本号】 【推荐阅读:
Delphi开发Web Server程序】
“邮件特快专递”这个词现在已经是被广大的网民所熟知了,它就好比是网络上的ems,能够直接把邮件送到对方的邮箱中,邮件发送完毕后,对方就可以立刻收到.foxmail在其最新的4.0版本中也特别新增了该功能,作为一名编程爱好者,你是不是也想知道如何编程实现该功能呢?那就随本文一起揭开“邮件特快专递”的神秘面纱: 【扩展信息:
取当前所有的拨号连接的程式】
一.实现原理
在outlook express中,可通过查看邮件的属性得到该邮件的头部资料.我们拿一封不是特快专递的普通邮件来进行剖析,下面是笔者一封邮件的头部资料:
received: from sm1.163.com([202.108.44.203]) by peoplemail.com.cn(jetmail 2.5.3.0)
with smtp id jm1ac3c063eec; thu, 29 nov 2001 07:20:25 -0000
received: from xubo (unknown [61.154.94.146])
by sm1.163.com (postfix) with esmtp id 99cf11c461061
for ; thu, 29 nov 2001 15:12:49 +0800 (cst)
……
从该头部资料可以看出,邮件传递的路线是由xubo→sm1.163.com→peoplemail.com.cn,其中xubo是本人所在机器,邮件是经由sm1.163.com这个中转站才送到目的地的,而我们平常所说的邮件特快专递,就是把邮件直接送到目的地而不需要中转站.
如何才能知道目的地的地址呢?我们知道电子邮件的地址由用户名(username)与邮箱域名（address.com）两部分构成的,给域名服务器发送针对“address.com”的mx指令查询即可找到目的地的地址.被查出来的目的地可能不止一个,有时这些目的地是有优先级别之分的,分别对应着邮件的优先级别,你可以根据邮件优先级的不同对应发送,也可以任意选择其中一个发送,本文的示例将选择反馈回来的第一个目的地发送,读者可根据实际需要进行改进.
二.用到的核心组件
本文将采用indy控件集进行域名查询.邮件发送部分的编程.indy的全名是internet direct（也叫winshoes）,是一套开放源代码.跨平台.优秀的internet控件集,它支持大部分流行的internet协议.delphi 6已经包含了该控件集,如果你使用的是delphi 6以前的版本,请先到indy主页http://www.nevrona.com/indy/download.html下载并安装该控件集.
三.窗口设计 ...
下一页 摘要：在delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（opendialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用delphi提供的selectdirectory函数。这个函数是在filectrl单元中定义的，因此在使用时不要忘记在uses中加入单元名。
下面就以一个例子来说明这两种方法在delphi中的具体实......
