摘要: (1)TSearchRec是一个记录类型,在delphi帮助文档下可以看到其定义:TSearchRec是一个文件信息的纪录(Record)类型在Windows下原型:typeTSearchRec = recordTime: Integer;Size: Integer;Attr: Integer;Name: TFileName;ExcludeAttr: Integer;FindHandle: THandle;FindData: TWin32FindData;end;(2).FindFirst函数在delphi帮助下的定义:function FindFirst(const Path: string 阅读全文
posted @ 2013-01-07 21:22 IT少年 阅读(3519) 评论(0) 推荐(0) 编辑
摘要: 关于递归,我个人有个肤浅的认识,就是在函数或者过程中调用自身。比如下面的代码,用递归的方法遍历磁盘文件,找到QQ.exe然后删掉。procedure FindFile(Dir: String);// 自定义过程; var Str: TSearchRec;// 是delphi为我们定义好的一个记录类型。 用于记录文件的各个参数,比如大小,属性,文件名等等; Path: string; begin Path := extractfilepath(Dir); // 利用 ExtractFilePath函数 将文件的路径转为绝对路径然后复制给Path; if FindFirst(Dir, fa... 阅读全文
posted @ 2013-01-07 21:18 IT少年 阅读(556) 评论(0) 推荐(0) 编辑