Delphi 10.3 应用程序获取自身所在的目录文件夹名称

procedure TForm1.FormCreate(Sender: TObject);

begin

  showmessage(ExtractFilePath(ParamStr(0))); //可执行文件自身所在的目录文件夹有/

  showmessage(ExtractFileDir(Application.Exename)); //返回的路径没有/

end;