var
path:string;
begin
  path:=ExtractFilePath(application.Name);
end;

解决方案 »

  1.   

    //自己試一下吧
    var 
      sPath;sPath := ExtractFilePath(Application.Exename);
      

  2.   

    ExtractFilePath(Application.ExeName);
      

  3.   

    GetCurrentDir或ExtractFilePath(Application.ExeName);
      

  4.   

    谢谢各位高手热心相助,我测试过了,正确的用法是blazingfire(烈焰) 的
    GetCurrentDir或ExtractFilePath(Application.ExeName);前一个得到路径没有“\”,后一个有。还有,请问Rainsea(飞龙在天) ,GetModuleName具体用法是什么?我查不到它的帮助。
      

  5.   

    GetCurrentDir
    ExtractFilePath(Application.ExeName);
    返回的路径不一定是一致的,当前路径可能不是执行文件的路径。