很多时候,我们需要取得应用软件自身所在的文件夹名称,其实Delphi很简单,只需一行代码即可解决:
procedure TFormMain.FormCreate(Sender: TObject);
begin
showmessage(ExtractFilePath(ParamStr(0)));//可执行文件自身所在的目录文件夹有/
showmessage(ExtractFileDir(Application.Exename));//返回的路径没有/
end;
很多时候,我们需要取得应用软件自身所在的文件夹名称,其实Delphi很简单,只需一行代码即可解决:
procedure TFormMain.FormCreate(Sender: TObject);
begin
showmessage(ExtractFilePath(ParamStr(0)));//可执行文件自身所在的目录文件夹有/
showmessage(ExtractFileDir(Application.Exename));//返回的路径没有/
end;