急!程序执行时,用什么办法能得到本程序所在路径

程序是delphi做的单机版,paradox数据库,程序执行时,用什么办法能得到本程序所在路径?如果我这个程序给用户安装以后,数据库文件夹和.exe文件是在一个目录下,我要复制数据库文件夹,就要得到它的路径,我的程序里用的都是数据库别名,不知道它的 物理路径.如果知道可执行文件的路径也可以,到底用什么函数啊?

解决方案 »

  1.   

    or
    ExtractFilePath(Application.ExeName);
      

  2.   

    程序路径
    Path:=ExtractFilePath(AppliCation.ExeName);\\找到程序所在路径
    if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\’
      

  3.   

    程序启动时用:GetCurrentDir
    其他时候同: klyh(风笛) (
      

  4.   

    ExtractFilePath(ParamStr(0))
    or
    ExtractFilePath(Application.ExeName)
      

  5.   

    用SHfileoperation到底怎样实现一个目录下的多个子目录和多个子文件的拷贝啊？
      

  6.   

    Path:=ExtractFilePath(AppliCation.ExeName);
      

  7.   

    Path:=ExtractFilePath(AppliCation.ExeName);\\找到程序所在路径
    if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\
      

  8.   

    ExtractFilePath(ParamStr(0))后面没有'\',为什么要判断?