Delphi 快速查询文件

Delphi 获取并显示当前Windows时间的例子，这个例子比较简单了，程序就完成一项功能，打开窗口后，点击按钮，即可获取当前的系统时间，并显示在窗体上，如效果图所示。

在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。

Delphi创建动态菜单，在程序运行过程中动态添加菜单，点击“添加菜单”按钮，会在菜单栏中增加一个“编辑”菜单项，预设中每次添加的菜单项都是“编辑”，这也是为了验证不要添加重复的菜单项，代码中的判断是一种方法，另外也可以通过菜单项的Caption属性来判断，不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中： 　　self.MainMenu1.AutoHotkeys:=maManual; 　　self.MainMenu1.AutoLineReduction:=maManual; 　　通过设置这两个属性可以禁止程序自动为菜单生成热键，否则程序会自动在菜单的Caption属性中加入热键，并且会修改Caption属性的值，给通过Caption属性判断菜单项带来麻烦。

Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。

Delphi 改变当前鼠标样式，这个样式比较个性了，把箭头状的鼠标指针替换成了一幅图像，还有动画效果。具体实现，请下载本源码一看究竟。本程序具备的功能是可以选择的，用户可选择改变鼠标的形状是否是当前窗口或系统，选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。

轻型网络聊天Delphi程序-源码，类似聊天室， 很简单，这是个多年前的网络编程例子，聊天过程中显示对方的IP，和当前好友姓名，还支持删除聊天记录。用户注册时，可对注册信息进行初始验证，比如用户名是否存在、姓名和IP地址不能空等，有一些技巧对Delphi打基础有帮助。

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

Delphi getTime 获取当前日期时间，用的是DateTimeToStr，运行本窗口后，自动获取当前电脑上的时间，显示在窗体指定的Lable标签中，这是核心的源代码： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 Label1.Caption := DateTimeToStr(now()); 　　end;

Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： 　　vh := Hour/12.0*2*Pi; 　　vm := Min/60.0*2*Pi; 　　vs := Sec/60.0*2*Pi; 　　with Canvas do 　　begin 　　 Pen.Width:=4; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh))); 　　 Pen.Width:=2; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm))); 　　 Pen.Width:=1; 　　 Pen.Color := clRed; 　　 MoveTo(60,60); 　　 LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs))); 　　end; 　　窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。