ExtractFileDir(PrarmStr(0));
//自己先搜搜

解决方案 »

  1.   

    --------------------------------------------------------------------------------
     
    刷新 | 搜索 | 提问 | 已解决 | 精华区 | 我的参与
          ~~~~~
          Click
      

  2.   

    ExtractFileDir(Application.ExeName)  
    ExtractFileDir(ParamStr(0));
    //不行吗
    //你到底要啥?
      

  3.   

    自己程序的目录:
    ExtractFileDir(Application.ExeName)  
    ExtractFileDir(ParamStr(0));
    自己程序的路径:
    ExtractFilePath(Application.ExeName)  //最后有'\'
    ExtractFilePath(ParamStr(0));         //最后有'\'