怎样取得当前程序文件(EXE文件)所在目录?急！在线等

[cwj88888]

在线等

[lead001]

Extractfilepath(application.exename)

[herofy]

ExtractFilePath(ParamStr(0))

[WWWWA]

extractfilepath('c:\123\we.exe')

[quakeIII]

Extractfilepath(application.exename)

[jacket008]

Extractfilepath(application.exename)

[yangsl]

Extractfilepath(application.exename)
bcb Extractfilepath(application->exename)

[overtime]

Extractfilepath(application.exename)

[LinLinLin]

var oldpath:string;
begin
getdir(0,oldpath);
showmessage(oldpath);
end;

[fsybaby]

另一种办法: copy(application.exename,0,length(application.exename)-{在此是你的可执行文件名长度(包括扩展名));

[ahjoe]

ExtractFileDir(application.exename)

[ly_liuyang]

ExtractFilePath(ParamStr(0))
或
Extractfilepath(application.exename)

[zhuojohn]

procedure TMainFrm.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;