Delphi为程序添加esc退出程序的功能

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

Delphi 使用TreeView来显示数据库信息，从数据库中读取数据，然后生成树形交叉节点的菜单，这种菜单通俗的叫做“树形菜单”，也是大家平时比较常见的菜单形式之一。 　　function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode; 　　var 　　 ThisNode,Node: TTreeNode; 　　 i: integer; 　　begin 　　 Node := Nil; 　　 for i := 0 to ItemList.Count-1 do 　　 begin 　　 ThisNode := TreeFindItem(Sender,Node,ItemList[i]); 　　 if(ThisNodeNil) then Node := ThisNode 　　 else begin 　　 if I　　 then begin 　　 if I=0 then Node := Sender.items.Add(Node, Itemlist[i]) 　　 else Node := Sender.items.AddChild(Node, Itemlist[i]); 　　 end 　　 else begin 　　 if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark) 　　 else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark); 　　 end; 　　 Node.stateIndex := Node.level + 1; 　　 if Resort and (Node.parent nil) then Node.parent.alphasort; 　　 end; 　　 end; 　　 Result := Node; 　　end;

Delphi 目录操作范例：改变当前目录，先获取当前的目录路径，然后改变这个目录路径，文件当前在此目录，那么如何修改文件路径呢？ 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 try 　　 chdir(Edit2.Text); 　　 finally 　　 getdir(0,result); 　　 Edit2.Text := result; 　　 end; 　　end; 　　源代码仅供参考。

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

Delphi 获取MonthCalendar中选择的日期，其实就是完成一个时间、日期的选择功能，年份、月份、日期、时间都可自定义调整并选择，这个简单的例子，可演示Delphi中MonthCalendar的用法，生成一个日期时间选择器功能。下面是相关代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Year,Month,Days: Word; 　　begin 　　 DecodeDate(MonthCalendar1.Date,Year,Month,Days); 　　 Edit1.Text:=IntToStr(Year); 　　 Edit2.Text:=IntToStr(Month); 　　 Edit3.Text:=IntToStr(Days); 　　end; 　　全部源码请下载本实例包。

Delphi 键盘钩子 封锁 windows 热键，封锁范围，可参见以下代码： 　　 keycost := LPKBDLLHOOKSTRUCT(lParam); 　　 if (keycost.vkCode=91) then//封锁win键 　　 exit; 　　 if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then 　　 exit; //封锁 ALT+TAB 　　 if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+F4 　　 if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+ESC 　　 if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)

delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作， 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。

在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。