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

Question

错了错了ExtractFileDir
ExtractFilePath

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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