那一刻，那一夜，那一月，那一年，那一世

FindFirst在SysUtils中声明 原型为Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Integer;描述:从指定的目录中搜索第一个给定属性文件实例返回结果保存到参数F中,F参数是一个文件结构包含文件信息成功返回0，否则返回错误代码参数Path:包含路径和搜索模糊文件名，包括

1.ExtractFilePath(Application.ExeName)        返回当前可执行程序.exe文件的绝对路径                                                                                  showmessage(ExtractFilePath(Application.ExeName));