Delphi 获取当前目录

用delphi自带的几个函数

 

ExtractFilePath //路径后面带有 "/" (不管是在磁盘根目录还是哪里) ExtractFileName //文件名 ExtractFileExt //扩展名

例子：

 

ExtractFilePath(ParamStr(0)); // C:/ ExtractFileName(ParamStr(0)); // Project.exe ExtractFileExt(ParamStr(0)); // .exe