获取程序所在目录

最新推荐文章于 2019-07-07 19:34:54 发布

weixin_34228617

最新推荐文章于 2019-07-07 19:34:54 发布

阅读量93

点赞数

原文链接：https://my.oschina.net/hermer/blog/320542

版权

为什么80%的码农都做不了架构师？>>>

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ExtractFilePath(ParamStr(0)));          //获取程序所在目录
  ShowMessage(ExtractFilePath(Application.ExeName));  //获取程序所在目录
  ShowMessage(GetCurrentDir + '\');                   //获取当前目录
end;

转载于:https://my.oschina.net/hermer/blog/320542