求返回当前程序路径的函数命令名,最好能有示例.

daimon

由于要获取当前路径,忘各位大大能提示一下.
我找到了是 ExtractFilePath(ParamStr(0))

brianwung

試試..
Application.Location

ft1022

Application.ExeName,              应用程序的名字带路径的
ExtractFilePath(FileName);     路径
ExtractFileName(FileName); 得到程序的名字

procedure TForm1.FormCreate(Sender: TObject);
begin
  AppPath:=Application.ExeName; //取系统路径
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Caption :=AppPath+'/'+ExtractFilePath(AppPath);
end;

辣炸肉丝

extractfilepath(application.ExeName)跟delphi一模一样的。