如何获取程序所在路径？

harabi 2003-08-20 03:24:00

见题

...全文

32 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

hailang_zh 2003-08-20

打赏
举报

extractfilepath(application.exename);

sanjin 2003-08-20

打赏
举报

ExtractFilePath(ParamStr(0));

lishen 2003-08-20

打赏
举报

getdir(0,bpath);

bpath变量中存的就是路径！

江山易改 2003-08-20

打赏
举报

ExtractFileDir(Application.Exename)

lean77 2003-08-20

打赏
举报

这么多重复答案

lishen 2003-08-20

打赏
举报

var
path,bpath:string;
begin
getdir(0,bpath);
path:=bpath+'\HELP.hlp';

charles2118 2003-08-20

打赏
举报

s:=ExtractFilePath(Application.ExeName);

lxpbuaa 2003-08-20

打赏
举报

ExtractFilePath(Application.ExeName)或者
ExtractFilePath(ParamStr(0))

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

pdcdiy163 2003-08-20

打赏
举报

ShowMessage(ExtractFilePath(Application.ExeName));

IORILI 2003-08-20

打赏
举报

extractfilepath(application.exename);

hongqi162 2003-08-20

打赏
举报

function TForm1.PathExeDir: string;
var FileName:string;
begin
FileName:=application.GetNamePath;
Result := ExtractFilePath(ParamStr(0)) + FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:= PathExeDir;
end;

d983074 2003-08-20

打赏
举报

extractfilepath(application.exename);

lirail 2003-08-20

打赏
举报

ExtractFilePath(paramstr(0));

harabi 2003-08-20

打赏
举报

我的桌面快捷方式的默认路径跟主程序路径不同

charles2118 2003-08-20

打赏
举报

ExtractFilePath()

zhuojohn 2003-08-20

打赏
举报

procedure TForm.GetAppDir(var AppDir: string);
var
hModule:THandle;
buf:array [0..MAX_PATH-1] of char;
begin
hModule:=GetModuleHandle(nil);
GetModuleFileName(hmodule,buf,sizeof(buf));
AppDir:=buf;
end;

WWWWA 2003-08-20