急！在NT Application Service程序里如何取得当前程序的路径？（用GetDir得到的是Window Service控制台程序的路径？！）

Question

急！在NT Application Service程序里如何取得当前程序的路径？（用GetDir得到的是Window Service控制台程序的路径？！）我做了一个Application Service程序，INSTALL后程正常执行，但执行中用GetDir函数取得的当前程序路径不正确！取得的是：
%SystemRoot%\system32\ 这个路径。
也就是Window Service（服务）控制台程序： services.msc 所在的路径。这是为什么？我怎么才能得到我的服务程序的路径？？？谢谢！！！

Answer 1

ExtractFilePath(ParamStr(0))————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

var AppPath:string;AppPath:=extractfilepath(application.exename)

Answer 3

首先要USES FORMS
其次用EXTRACTFILEPATH(APPLICATION.EXENAME);