如何得到当前应用程序的名称和运行所在路径？

[Stephen_Chen]

我忘了：）

[stiwin]

ExtractPathPath

[stiwin]

错了错了

ExtractFileDir
ExtractFilePath

[Brune]

GetCurrentDir
获取当前的目录的绝对路径。
函数原型如下：
function GetCurrentDir: string;

[taogou]

ExtractFilePath(Application.ExeName)

[DunDao]

1、Applcation.ExeName或ParamStr(0)
2、ExtractFilePath

[hjd_cw]

showMessage(ParamStr(0));
showMessage(ExtractFilePatn(ParamStr(0)));

[li_lip]

var
i:integer;
path:pchar ;
begin
i:= 256;
getmem(path,i);
GetModuleFileName(h,path,i);
showmessage(path);
end;

[li_lip]

寫錯了﹐正確如下﹕
var
i:integer;
path:pchar ;
begin
i:= 256;
getmem(path,i);
GetModuleFileName(hinstance,path,i);
showmessage(path);
end;