delphi 获取程序所在目录 :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录
ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录
ShowMessage(GetCurrentDir + '/'); //获取当前目录
end
delphi 获取程序所在目录
最新推荐文章于 2022-12-29 09:35:36 发布