摘要：查找一个目录下的某些特定的文件 方法如下： FileSearch ：查找目录中是否存在某一特定文件 FindFirst ：在目录中查找与给定文件名（可以包含匹配符）及属性集相匹配的第一个文件 FindNext ：返回符合条件的下一个文件 FindClose ：中止一个FindFirst / FindNext序列 //参数： //Directory : strin... 阅读全文

摘要：文件拷贝中实现文件资源的保护： procedure CopyFile(const FileName, DestName: TFileName); var CopyBuffer: Pointer; TimeStamp, BytesCopied: Longint; Source, Dest: Integer; Destination: TFileName; const... 阅读全文

摘要：在某些情况下，我们编写的应用程序同时只能有一个实例在内存中运行，例如服务器程序、需要独占某设备的程序，甚至我们仅仅是让程序同时只有一个实例运行（如UltraEdit就是这样做的，让你不能同时运行多个UltraEdit）。要实现此功能，需要在程序中加一点判断的代码，在Windows 95或Win32环境下的Delphi版本中实现的程序如下：按Ctrl+F12键，选择Project1，加入下列语句pr... 阅读全文

摘要：1、把 Form 的BorderIcons 下的几个子属性值全改为 False;2、修改 Form 的BorderStyle 的值为bsSingle ;3、为了让窗口不能移动 可以自已拦下 WM_NCHITTEST 消息 对该消息的处理为：一概回应鼠标点在窗口的 Client 区域相信这个视窗就呆呆的不会动了。详情可以查一下 Win32API Help 的 CreateWindow() 与 WM_... 阅读全文

摘要：***************************************************************** * 一、为什么选择Delphi * ***************************************************************** 在开始... 阅读全文