Delphi7获取指定的临时文件所在目录和文件名，获取临时文件目录、临时文件地址、临时文件名等信息。 　　临时目录位置： 　　PChar(edit2.text), 文件名前缀 　　0, 该数字由系统根据当前时间生成 　　@s1 生成的临时文件名，获取临时目录并保存到s1中

再发Delphi 软键盘控件及调用示例，在Delphi 2007 环境可免费使用，本软键盘组件可选风格，可让用户自行拉大放小, 里面的按键也会按比例放大缩小, 因为是按比例计算, 所以计算总有误差. 所以有时按键位置在拉大放小的过程中会同理想情况有误差. 如有高手改进算法. 请务必回一份给本人.

Delphi 实现鼠标键盘记录和回放，录制鼠标的运动轨迹，就像屏幕录像机那样。

Delphi 获取硬盘序列号(支持SSD和SCSI硬盘) ，支持Windows7系统，只是获取硬盘的序列号，不包括其它的硬盘属性信息，运行效果如截图所示。 　　本源码无使用第三方控件，在Delphi7.0环境下可直接编译源码，运行程序后，单击窗口中的“Get HardDisk ID”按钮，即可获取到硬盘序列号。

一款Delphi编写的万年历控件，用于开发功能强大的日历功能，支持显示农历，可自定义日历显示区的背景图像，文字颜色、是否显示生肖、背景颜色以及标题字体及颜色自定义、节日字体定义等，可充分实现对日历个性定制的需求。具体日历效果请参见演示截图所示。 　　 //农历月份数据，每年4字节，从1901年开始，共150年 　　 //数据来源：UCDOS 6.0 UCT.COM 　　 //分析整理：Copyright (c) 1996-1998, Randolph 　　 //数据解析： 　　 //如果第一字节的bit7为1，则该年1月1日位于农历12月，否则位于11月 　　 //第一字节去除bit7为该年1月1日的农历日期 　　 // 第二字节 第三字节 　　 //bit: 7 6 5 4 3 2 1 0 7 6 5 4 3 2 1 0 　　 //农历月份:16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 　　 //农历月份指的是从该年1月1日的农历月份算起的顺序号 　　 //农历月份对应的bit为1则该月为30日，否则为29日 　　 //第四字节为闰月月份 　　// BaseDate='2000/02/04';//2000立春 　　 BaseAnimalDate = '1972'; //1972年支为子(是鼠年) 　　 BaseSkyStemDate = '1974'; //1974年干为甲 　　注：原始数据类型定义在GdipTypes.pas中，为了Delphi习惯，常用的已经在本模块重新 　　* 定义。要使用某些特殊的枚举、记录、常量或过程必须包含GdipTypes.pas文件

Delphi利用进程实现消息传送及内存共享，自己做的一个共享内存组件；原来是一个单元引用，加入进程间的消息传递；做成了组件；如果存在公用的内存镜像文件，将数据填充到指针中；否则创建它，如果存在公用的内存镜像文件，得到其数据；否则创建它，并使指针指向数据； 　　功能方面可以实现： 　　①、简单的字符串共享与消息传递； 　　②、自定义格式的数据共享；定义一个数据类型（也可以建立一个公共的共享内存数据格式文件） 　　③、填充和转换字符数组 　　④、能接收消息的句柄； 　　⑤、进程间传递消息，要注册消息

Delphi使用ListView控件和TreeView控件仿写的Windows文件管理器，也就是资源管理器，界面方面使用了三方控件，界面自己比较满意，也算是学Delphi3个月以来的小小成就吧，编写期间查阅了大量示例程序和教程，演示效果如截图所示。

Delphi 获取鼠标按键状态源码，运行本程序后，操作鼠标左右键和中轮，程序将监控到这些鼠标键被按下的状态，并将信息显示在窗口的标题栏中，本程序同时也实现了动态改变窗口标题文字的功能，各个鼠标按键状态获取及提示信息如下： 　　procedure TForm1.WMLButtonDblClk(var Message: TWMLButtonDblClk); 　　begin 　　 Self.Caption := '鼠标左键双击'; 　　end; 　　procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown); 　　begin 　　 Self.Caption := '鼠标左键按下'; 　　end; 　　procedure TForm1.WMMButtonDblClk(var Message: TWMMButtonDblClk); 　　begin 　　 Self.Caption := '鼠标中键双击'; 　　end; 　　procedure TForm1.WMMButtonDown(var Message: TWMMButtonDown); 　　begin 　　 Self.Caption := '鼠标中键按下'; 　　end; 　　procedure TForm1.WMRButtonDblClk(var Message: TWMRButtonDblClk); 　　begin 　　 Self.Caption := '鼠标右键双击'; 　　end; 　　procedure TForm1.WMRButtonDown(var Message: TWMRButtonDown); 　　begin 　　 Self.Caption := '鼠标右键按下'; 　　end;