Delphi演示UniCode编码、简体繁体互转的方法实现

Delphi 应用程序背景与桌面融合在一起，运行后，显示windows 桌面上的内容，显示壁纸，拖动窗口移动，桌面背景并不移动，好像是一个桌面相框一样，实现代码： 　　for i:=0 to ControlCount-1 do 　　if Controls[i] is TGraphicControl then 　　begin 　　 //使TLabel组件不透明显示 　　 Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0); 　　end;

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

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。

delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码

枚举线程的Delphi实例代码，Delphi 枚举线程的例子应该很多了，这一个比较简单的那种，可以为学习Delphi的新手朋友提供一些参考思路，运行界面效果如下图所示。源代码编译于Delphi7.0环境。

Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法 　　 pushad 　　 push ebp //#2，保存ebp 　　 sub esp,$2c //#1，预留2c字节的栈空间 　　 push Int13Reg16 //第一参数，如果没有参数，则不用push 　　 //第二参数，如果没有参数，则不用push 　　 mov edx, pFunc //函数地址 　　 mov ebp,esp // 　　 add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的 　　 call QT_Thunk 　　 add esp,$2c //#1，释放上面预留的2c字节的栈空间 　　 pop ebp //#2，恢复ebp 　　 mov byte ptr @result,al 　　 popad 　　 end;

Delphi 创建INI文件，使用了Tinifile.Create来创建一个指定格式的INI文件，作为程序的配置文件，运行程序时读入文件中的内容。ini文件作为配置文件，相信大家已经不陌生了，对于Delphi操作新手来说，源代码有很好的学习参考作用。通过本源码你可以了解到写文件对象中WriteBool、WriteFloat、WriteDate、WriteTime、WriteInteger、WriteString等众多字段类型写入的用法。

Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。

Delphi控制电脑蜂鸣器或扬声器发声音，有些称之为喇叭，不过测试发现，这个是优先机箱蜂鸣器发出声音，或没装蜂鸣器，则会从音箱中发声音，实现的代码很简单，以下代码即可实现： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j : integer; 　　begin 　　 for i := 1000 to 2000 do 　　 begin 　　 j := i; 　　 windows.Beep(1000,3000); 　　 end; 　　end;