怎样获得一个Service Application的可执行文件所在的路径？

Question

上面的兄弟们你们的办法我早就用过了,它可不是普通的exe文件，他可是win2000的服务应用程序,如果用ExtractFilePath(Application.ExeName)能得到的话,我就不提这个已经问烂了的问题了。

Answer 1

var
  p:pchar;
  nsize:dword;
begin
  nsize:=max_path-1;
  getmem(p,nsize);
  GetModuleFileName(hinstance,p,nsize);
  showmessage(extractfilepath(p));
  freemem(p,nsize);
end;我已经大概试了试，可以的。呵呵

Answer 2

shangshang(大雪有痕)回答正确，立即给分，谢谢！