摘要: 在实际工作中,需要把窗体的BorderStyle设置为bsNone,但这样窗体却无法拖动了.那只好自己写代码实现:private {Private declarations} OldX,OldY:integer; //定义变量procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,... 阅读全文
posted @ 2009-06-24 08:43 novel 阅读(569) 评论(0) 推荐(0)
摘要: 以前调用关机对话框时,一般有两种方法,一种是利用shell的com对象,另一种是声明这个API,这个api是以序号导出的,delphi并没有声明,要自己写.今天发现的方法如下:查找桌面句柄标题为Program Manager类名为Progman 或者为Shell_TrayWnd 向这个窗口发送WM_Close消息就会出现关机对话框. procedure TForm1.Button1Click(Se... 阅读全文
posted @ 2009-06-17 09:43 novel 阅读(345) 评论(0) 推荐(0)
摘要: 上个星期做一个复杂的报表导出到excel,发现每次导出后都有一个excel.exe进程.找到N久才找到的这段代码:#region Kill Special Excel Process[DllImport("user32.dll", SetLastError = true)]static extern int GetWindowThreadProcessId(IntPtr hWnd, out int... 阅读全文
posted @ 2009-06-15 14:19 novel 阅读(786) 评论(1) 推荐(0)
摘要: 这几天在做一个导出数据到EXCEL的报表,某些数据值超过条件设置的需要用颜色表示出来.但导出Excel 只能用ColorIndex,不能用Color(我汗).在网上找到的这个图,不用自己去一个个试了. 阅读全文
posted @ 2009-06-04 10:58 novel 阅读(2281) 评论(0) 推荐(0)
摘要: 一个抓屏的函数,在其它Blog上看到的[代码] 阅读全文
posted @ 2009-05-27 23:52 novel 阅读(428) 评论(0) 推荐(0)
摘要: 最近用C#做一个根据自定义条件Search file 的工具, 查找相关方面的资料:function GetFilenames(FilePath,ExtMask: String):TStrings; //遍历目录var FileRec :TSearchrec;begin if DirectoryExists(FilePath) then begin if FilePath[Length(FileP... 阅读全文
posted @ 2009-05-27 23:11 novel 阅读(481) 评论(0) 推荐(0)
摘要: 转自:http://hi.baidu.com/rarnu/blog/item/c186e1dde2e9d6ea77c638d4.html以往删除目录时,都需要先用递归删干净目录下的文件和子文件夹,这样做的时候,如果文件数量大,那么删除会非常慢于是找了个方便一点的方法,直接使用API将目录删除代码如下:function DelDirectory(const Source: string): bool... 阅读全文
posted @ 2009-05-27 23:04 novel 阅读(230) 评论(0) 推荐(0)
摘要: //判断文件是否存在 FileExists//判断文件夹是否存在 DirectoryExists//删除文件 DeleteFile; Windows.DeleteFile//删除文件夹 RemoveDir; RemoveDirectory//获取当前文件夹 GetCurrentDir//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory//获取指定驱... 阅读全文
posted @ 2009-05-27 22:52 novel 阅读(282) 评论(0) 推荐(0)
摘要: 一个修改系统时间的函数,超简单[代码] 阅读全文
posted @ 2009-05-15 08:55 novel 阅读(1385) 评论(0) 推荐(0)
摘要: 最近在做个项目,客户要求终端用户退出系统则关机,于是在网上找到这段代码:[代码] 阅读全文
posted @ 2009-05-15 08:21 novel 阅读(543) 评论(0) 推荐(0)