取得Service 所在的路徑

var
  szPath: array [0..1024] of Char;

begin
  // 取得程式所在根目錄
  ZeroMemory(@szPath,sizeof(szPath));
  GetModuleFileName(0,szPath,sizeof(szPath));
  //result szPath='c:\path\test.exe'
  ---
end;