5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
syd111 2002-09-24
- 打赏
- 举报
label1.caption:=extract(application.exename)
zwjchina 2002-09-24
- 打赏
- 举报
ExtractFilePath(Application.ExeName)
DaneWoo 2002-09-24
- 打赏
- 举报
Bes96261(秋水孤鶩) 的答案是取得 “当前目录”，而不是 “应用程序所在的路径”
noall 2002-09-19
- 打赏
- 举报
extractfilepath(paramstr(0))
BES 2002-09-19
- 打赏
- 举报
function GetAppDir: String; //Get System ExecFile Dress
begin
Result := Trim(GetCurrentDir);
end;
begin
Result := Trim(GetCurrentDir);
end;
