获取windows System目录路径-Delphi示例

Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。

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

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。

Delphi 主窗体和子窗体显示示例，这类功能在平时的delphi编程中也是十分常见的，我们需要在主窗口中添加一个按钮，点击后弹出一个子窗口，对窗口布局来说是一种扩展。本示例简单，适合初学者学习参考。

Delphi 判断字符串是否为日期或时间，检查用户输入的时间格式是否正确，判断用户输入的是否是时间字符串，这个虽然麻烦些，不过这个例子将问题简单化，有兴趣的参考源码。

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实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下： 　　if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree

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

Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 Close; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 ClearText : Integer; 　　begin 　　 For ClearText := 0 to Form1.ComponentCount -1 do 　　 begin 　　 //判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空 　　 if Form1.Components[ClearText] is TEdit then 　　 begin 　　 TEdit(Components[ClearText]).Clear; 　　 end; 　　 end; 　　end;

Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。