2016年11月25日
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 伯通心智 阅读(926) 评论(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 伯通心智 阅读(727) 评论(0) 推荐(0) 编辑