ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序
所在目录
ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录
ShowMessage(GetCurrentDir + '\'); //获取当前目录
ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录
ShowMessage(GetCurrentDir + '\'); //获取当前目录