程序运行后怎样得到程序所在的路径？

Question

程序运行后如何返回这个程序所在的完整路径啊？
谢谢！解决后马上送分

Answer 1

ExtractFilePath(Application.ExeName);//如c:\abc\d\

Answer 2

是的，就是这样的
ExtractFilePath(Application.ExeName)

Answer 3

第二中方法：使用参数为0的ParamStr函数！！！！

Answer 4

up一下
ExtractFilePath(Application.ExeName)

Answer 5

function Getexepath: string;
var
   path             : string;
   i                : integer;
begin
   path := application.ExeName;
   for i := length(path) - 1 downto 0 do
   begin
      if pchar(path)[i] = '\' then
         break;
   end;
   result := copy(path, 1, i);
end;

Answer 6

同意楼上的！
var 
tmpdir:string;
tmpdir:=getcurrentdir;
这样就取得当前路径！

Answer 7

这样返回的没有程序名啊？
怎样返回如c:\abc\d\aaa.exe

Answer 8

ExtractFilePath(Application.ExeName)+'\'+Application.ExeName

Answer 9

来晚了，同意ExtractFilePath(Application.ExeName);

Answer 10

你自己的程序，程序名应该是已知且固定的吧？
可以用filepath:=extractfilepath(paramstr(0))+'filename.exe'