Delphi 控制Canvas上的直线点跟随鼠标移动

整合网上下载到的资源（ElAES.pas,AES.pas），在Delphi7下编译后，测试能用

Delphi POP3接收邮件-Email源码实例，像是一个邮件客户端那样，设定好邮件服务器相关参数后，可连接到邮件服务器，接收邮件，本例子仅包括邮件接收功能，不能发送邮件哦。使用本程序需要设置的参数：邮件服务器POP3、端口、邮件帐户、密码，连接成功后，邮件列表会显示在“邮件”一栏中，单击任意一个邮件，详细信息会显示在“内容”栏中。

Delphi 显示彩色数据表格，对DBGrid数据表格进行美化，自定义任意行和任意列单元格显示不同的背景颜色，这样可实现特定数据显示不同的颜色，更利于报表的清淅直观。

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

Delphi 简单的文件查看器，可以获取并显示文件的显示名，获取并显示文件类型信息，获取并显示表示该程序的图标，获取文件属性信息，始获取并显示文件上次修改的日期和时间，处理用户没有选择文件而选择了文件夹或驱动器的转化异常。

Delphi获取电脑CPU硬件型号名称，这个可能不准确，我是64位 I5 3470 CPU，获取出来的是统称，不是太准确，可能是我系统的问题。不过这个代码是前几年书中的代码，现在的硬件发展快，也有可能是代码的问题，运行效果如下。 　　本获取CPU名称是根据注册表的方法获取的。

Delphi实现流程图绘制程序附有源码，看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件，功能比较强大，运行界面如下图所示。生成的流程图可编辑文件扩展名为pf，本软件将自动识别。

Delphi 邮件短信自动通知系统，并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能，可添加邮箱帐户自动收集，并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况，部分功能需要依赖于硬件支持。 　　程序可最小化到windows托盘处显示图标，通过定义好的右键菜单来调出主窗口，虽然是一个发邮件的小程序，但是暗含的Delphi技巧有很多哦，欢迎下载源码研究学习。 　　1.实现邮件检测功能： 　　（1）注册账号，注意正确添写POP3服务器，用户名，密码。 　　2.实现发送短信功能： 　　（1）在注册账号时要添写正确的手机号码，并选中发送到手机的复选框。 　　（2）跟据自己购买的GSM模块说明书设置串口参数，一般是“19200，n,8,1”。 　　（3）添写当地短信中心号码，前面的86可加可不加，如果没有写，系统在按“确定”后会自动加上。 　　（4）注意：如果短信中含有中文字符，则一定要设成Pdu模式，否则短信可能发送失败。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

源码演示Delphi 如何放大和缩小图像【图片】，我们这个例子可以学习了解如何使用Delphi编程代码，放大或缩小一张图片，这里把放大和缩小图片的基数写在按钮事件中，用户每次单击按钮，就会按照一定的缩放倍数放大或缩小图像，本示例测试图片已写入程序中，编译运行后操作并演示效果，对图像的缩放部分，重点参考以下代码： 　　图片缩小操作： 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 if image1.Height>50 then 　　 begin 　　 image1.Height:=image1.Height-10; 　　 image1.Width:=image1.Width-13; 　　 end; 　　end; 　　图片放大操作： 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if image1.Height