2008年11月12日
点什么窗体都最小化
摘要： 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; 阅读全文
posted @ 2008-11-12 21:06 delphi中间件 阅读(158) 评论(0) 推荐(0)
Tidftp实现自动更新程序
摘要： unit uFrmSplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls 阅读全文
posted @ 2008-11-12 11:30 delphi中间件 阅读(1140) 评论(0) 推荐(0)
杀进程和取文件最近使用时间
摘要： 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;//提升权限//杀服务程序进程,它会提示"拒绝访问".其实只要程序 阅读全文
posted @ 2008-11-12 11:10 delphi中间件 阅读(361) 评论(0) 推荐(0)