Delphi 监测程序多久未被使用

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

Delphi生成立体字效果，在文字下面增加阴影效果，这个在PS软件中是一个常用的特效，用Delphi也可以实现这种原生效果，阴影大小和面积、角度在代码中可以设置，最终自定义的阴影效果如图所示，实现了一个不错的立体文字效果。

Delphi 文件拖放获取路径实例，用文件拖放的方式打开文件，本实例中虽然没有打开文件，但是获取到了文件路径，因此你就可以依此功能扩展成打开文件的功能。 　　实现方法使用了shellAPI,将Form1注册为文件拖放接收控件，说请请下载该源码。

Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。 　　局域网内发消息核心代码： 　　procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string); 　　var 　　 ms:PWideChar; 　　begin 　　 ms:=PWIDEChar(WideString(msg)); 　　 NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2); 　　end; 　　procedure TFrmSendMessage.BtnSendClick(Sender: TObject); 　　begin 　　 Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text); 　　end;

Delphi实现回车移动焦点的功能，当用户在输入时按回车键，将移动光标到一下文本框，这个功能我觉得可很好的提升软件的操作体验，为实现快捷输入近了一步。具体代码请参考如下： 　　begin 　　 if Key = 13 then 　　 begin 　　 keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 　　 keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起 　　 end; 　　end;

Delphi 云台镜头控制系统，用于摄像头监控系统中的云台控制程序，早几年写的，可能现在适用的硬件已经过时了，不过对于编写开发Delphi程序来说，源代码部分还是很有参考价值的。 　　本套云台控制系统运行的最终界面效果如示例图所示，界面友好，功能实用。 　　通过这套云台控制程序，你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

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

如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下: 　　procedure TForm1.WMPowerBroadcast(var message: TMessage); 　　begin 　　 message.Result := BROADCAST_QUERY_DENY; 　　end;

Delphi 自定义播放窗口，指定视频显示窗口，本源码演示的重点主要是播放器窗口外观的设计，调用了外部的一张jpg图片做为播放器的主窗口，让窗口风格首先看上去具有播放器程序的风格，因此，在美化窗口时如何使用jpg格式的图片，是本例要表现的重点功能，希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。 　　本播放器虽然重在演示窗口功能的实现，不过它真的可以播放视频文件，比如mpg格式的文件。