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

Delphi时间换算 换算秒数为时间格式，其实这种换算还是挺简单的吧，TimeToStr(I/86400);就可以算出。在运行的程序窗口中，输入任意秒数（必需输入数字）后，点击确定按钮，即可显示出时间格式的秒数了。具体的代码这里不帖了，需要的请下载完整源码吧，运行效果图如截图所示。

Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）： 　　on E:EInOutError do 　　begin 　　 if e.ErrorCode=32 then//文件正在被使用 　　 begin 　　 result:=true; 　　 exit; 　　 end; 　　end; 　　更完整的可编译源码，请下载。

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

Delphi SQLSERVER停车场收费管理系统，本系统涉及有多个硬件，运行后需要初始化硬件，读取硬件的配置数据，包括控制器。需要联网读取数据，比较综合的一套系统。可对挡车器、停车场照明系统进行管理，可财务报帐、年终结算等功能，主窗口启动时，先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效，设置照明灯自动开关时间，向数据库中写入记录，控制硬件打开挡车器，开始事务：fee_station-结帐次数加1，维护费用AMaintain=0 ,start_fee增加。。。

Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。

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

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如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。

Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。