很简单的题目，快来提分！！！

        我想将所做的程序在用户执行后，启动运行，但我的程序是免安装的，现在的问题是：我通过修改注册表可以将程序自启动，但需要明确地知道当前用户将程序放置的目录（绝对位置），以写入注册表，急！！！请回答，一定送分！！  
          顺致新年愉快！！！！ 问题点数：20、回复次数：8Top

1 楼40Star（斯文、大方、有前途）回复于 2002-02-05 11:39:42 得分 5

extractFilepath(Application.Exename)  
  ExtractFileDir()Top

2 楼dancemaple（枫之舞）回复于 2002-02-05 11:40:04 得分 0

程序运行时，用ExtractFilePath可以获得程序所在的路径Top

3 楼JYYF21（七剑飞仙）回复于 2002-02-05 11:46:47 得分 0

楼上的朋友说得对Top

4 楼pingguo（e网情深）回复于 2002-02-05 11:50:30 得分 15

可以这么获取路径：  
   
  var  
      dirStr:string;  
      filename:string;  
  begin  
  dirstr:=ExtractFilePath(Paramstr(0))+filename;  
  end;Top

5 楼kakaxixi_008（呵呵）回复于 2002-02-05 11:54:45 得分 0

兄弟，楼上的说得对，别犹豫了Top

6 楼share2002（心事）回复于 2002-02-05 11:55:33 得分 0

谢谢，我先试试，成功一定给分  
  Top

7 楼share2002（心事）回复于 2002-02-05 12:00:10 得分 0

OK，谢谢大家，MARKTop

8 楼Bellamy（酷公爵）回复于 2002-02-05 12:07:56 得分 0

是的  
  用ExtractfilePath(Application.Exename)  
  就可以了Top

相关问题

• 用户
• application
• extractfilepath
• 程序
• 注册表
• 路径
• exename
• 启动
• filename

• 帖主：share2002
• 40Star
• pingguo

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载