摘要：
private procedure WMSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;procedure TFormMain.WMSysCommand(var Msg: TMessage);begin case Msg.WParam of SC_CLOSE,SC_MINIMIZE,SC_MAXIMIZE: begin Application.Minimize; end; else inherited; end;end; 阅读全文
摘要：
unit uFrmSplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls 阅读全文
摘要：
unit uFTPclient;interfaceuses SysUtils,Windows,Tlhelp32;const FILE_CREATE_TIME=0; //文件建立时间 FILE_MODIFY_TIME=1; //修改时间 FILE_ACCESS_TIME=2; //最后访问时间type TFileTimes = (ftLastAccess, ftLastWrite, ftCreation);//文件是否正被使用function IsFileInUse(FName:string):Boolean;//提升权限//杀服务程序进程,它会提示"拒绝访问".其实只要程序 阅读全文