如何在工程运行中得到工程当前所在的路径

Question

Caption := ExtractFilePath(Application.ExeName);

Answer 1

差点看成“淘气”了Delphi中无所谓“大虾”，其实是“知者不难，难者不知”

Answer 2

ExtractFilePath(Application.ExeName) 

Answer 3

ExtractFilePath(Application.ExeName)
是个string，可以用string型的来显示出来，比如edit.text等。

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=ExtractFileDir(Application.ExeName);
end;

Answer 5

1:getcurrentdir
2:extractfiledir(application.execame);
3:extractfilepath(application.exename)