Delphi 模拟Windows “显示桌面”功能

一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。 　　ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口 　　Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表 　　HasExpanded: Boolean; // 节点是否展开 　　通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。

Delphi 多帧动画播放，Delphi将多幅连续的BMP图像显示在一起，形成了动画的效果，类似于GIF的类型动画。每一张图片都是一帧，将帧快速的连起来，就形成了动画效果。

Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能： 　　Function TForm1.Strcount( s, s1, s2 : string ): integer; 　　var 　　 i,j,slen : integer; 　　begin 　　 i := pos( s1, s ); 　　 j := pos( s2, s ); 　　 slen := Length(s1); 　　 if j >= i then 　　 Result := j - i - slen 　　 else 　　 Result := 0; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 n : integer; 　　begin 　　 n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text); 　　 showmessage(IntToStr(n)); 　　end;

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。

这个程序演示了使用Word作为自动化服务器，Delphi地自动化控制器是如何将一个查询结果插入到word文档中，返回应用参数.这个调用在英文和法文版的 Word中相同。对德文版的Word，这个过程名是翻译后的。如果这个过程不存在，存在一个不同的Word翻译版本，还可以插入中文Word，运行效果如图所示。

Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。

简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Dtimer : TSystemTime; 　　 hh,Ghh : Integer; 　　begin 　　 hh := StrToInt(Trim(Edit4.Text)); 　　 if hh < 8 then 　　 Ghh := 16 + hh 　　 else 　　 Ghh := hh - 8; 　　 with Dtimer do 　　 begin 　　 wYear:=StrToInt(Edit1.Text); 　　 wMonth:=StrToInt(Edit2.Text); 　　 wDay:=StrToInt(Edit3.Text); 　　 wHour:=Ghh; 　　 wMinute:=StrToInt(Edit5.Text); 　　 wSecond:=StrToInt(Edit6.Text); 　　 end; 　　 SetSystemTime(Dtimer); 　　end;

Delphi 自定义播放窗口，指定视频显示窗口，本源码演示的重点主要是播放器窗口外观的设计，调用了外部的一张jpg图片做为播放器的主窗口，让窗口风格首先看上去具有播放器程序的风格，因此，在美化窗口时如何使用jpg格式的图片，是本例要表现的重点功能，希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。 　　本播放器虽然重在演示窗口功能的实现，不过它真的可以播放视频文件，比如mpg格式的文件。

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

Delphi 限制窗口最大化显示，当用户单击最大化按钮后，窗口稍微变大了一点，但并没有最大化，有时候，我们需要限制，不让窗口最大化，在编写实现此功能时，定义了WMGetMinMaxInfo，以下代码在函数中定义，用户操作按钮，激活函数： 　　with Message.MinMaxInfo^ do 　　begin 　　ptMaxSize.X := 400; //最大化时宽度 　　ptMaxSize.Y := 300; //最大化时高度 　　ptMaxPosition.X := 120; //最大化时左上角横坐标 　　ptMaxPosition.Y := 120; //最大化时左上角纵坐标 　　end; 　　Message.Result := 0; //通知Windows改变了minmaxinfo