获取程序所在目录

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

posted on 2007-11-30 22:03  万一  阅读(5979)  评论(3)  编辑  收藏

标签：所在,程序,获取,ShowMessage,目录,ExtractFilePath
来源： https://blog.51cto.com/u_14617575/2746741