获取程序所在的目录

Lazarus 获取程序所在目录

2023-02-15

  { add your program here }
  // 必须转码,lazaur的程序是UTF8编码,windows 控制台是GBK编码
  // 不转码程序输出时会异常
  WriteLn(UTF8ToAnsi('以下三种方式结果都是相同的'));
  WriteLn('list app dir');

  Writeln(ExtractFilePath(ParamStr(0)));          //获取程序所在目录
  Writeln(ExtractFilePath(ExeName));  //获取程序所在目录
  Writeln(GetCurrentDir + '\'); // 这个是获取当前目录,一般不要用这个