11 2016 档案

delphi 使用自定义HANDLE处理消息
摘要：unit UCallHwnd; interface uses Classes, Messages, Windows; const WM_USER_MSG = WM_USER + 1; type TCallHwnd = class(TObject) private FHwnd: THandle; protected procedure DoUserMes... 阅读全文
posted @ 2016-11-26 09:25 伯通心智 阅读(1458) 评论(0) 推荐(0)
delphi 遍历文件
摘要：///遍历文件 ///AList: 遍历所得文件列表，全路径 ///APath: 遍历目录 ///AExt: 遍历文件扩展名 procedure gFileList(AList: TStringList; const APath, AExt: String); var str: String; sch:TSearchrec; begin if AList = nil then Exi... 阅读全文
posted @ 2016-11-25 23:36 伯通心智 阅读(964) 评论(0) 推荐(0)
delphi 强行关闭进程
摘要：uses Tlhelp32; function KillTask(ATask: string): Boolean; var Loop: Boolean; hd: THandle; pe: TProcessEntry32; begin Result := False; hd := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0)... 阅读全文
posted @ 2016-11-25 23:30 伯通心智 阅读(746) 评论(0) 推荐(0)