一套源代码完整的开放式Delphi机房管理系统，压缩包内包含项目源文件，编译生成的输出文件以及SQL2000数据库文件，其它所需资源也比较全，因此压缩包比较大，大约8MB多一些，大家耐心下载。

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi7.0开发的工资管理系统，数据库采用SQLServer，功能主要包括：员工信息管理、工资标准设定（含职务、职称及其它的工资标准输入）、工资管理And（生成工资表、工资调整管理、工资统计）、系统功能（用户管理、口令设定等）。界面简易，操作方便，是学习Delphi数据库系统编程的好范例。

Delphi学生信息管理系统，是一个典型的具有学习参考价值的SqlServer数据库系统，也可作为Delphi专业学生的课程设计范本，这款学生信息管理系统功能方面可完成学生基本信息录入 、成绩录入查询、系统管理员设置、用户注销等。

BN078-桑拿系统 delphi源码 无密码

在文本框内输入中文或英文，点击朗读按钮，即可发声朗读

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;

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

一款使用Delphi开发的网页浏览器，源代码来自鱼C论坛，时间有限，做得很粗糙。关于几个WebBrowser的控制按钮是自己靠着蹩脚英语加上词典猜的 - - 自己本地开phpstudy测试了一下应该是没猜错 主页我没用gohome，手动设成了鱼C 但是不知道如何实现不能前进、后退、停止时，按钮的enableb属性为false 我的鼠标是6键的，没查到鼠标上面前进后退键的键值（应该是叫键值吧？），不能用鼠标上的前进后退按钮控制浏览器的前进后退。点击新标签浏览的时候会自动以IE打开，回去看看能不能实现多标签（不知道这个功能会不会涉及到浏览器的内核）下一步准备回去把界面美化一下，再把以上问题解决，再加一个POST登陆鱼C论坛的功能，搜索引擎和收藏夹。

Delphi生成图片缩略图的例子，附上完整的源代码，本程序可生成两种图片大小的缩略图，使用方法很简单，只需点击一下操作按钮即可，感觉在平时需要自动生成缩略图的时候比较多，所以这个小程序还是挺实用的吧。