摘要:
///遍历文件 ///AList: 遍历所得文件列表,全路径 ///APath: 遍历目录 ///AExt: 遍历文件扩展名 procedure gFileList(AList: TStringList; const APath, AExt: String); var str: String; sch:TSearchrec; begin if AList = nil then Exi... 阅读全文
摘要:
uses Tlhelp32; function KillTask(ATask: string): Boolean; var Loop: Boolean; hd: THandle; pe: TProcessEntry32; begin Result := False; hd := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0)... 阅读全文