Wie Exefile-Version eines TService ermitteln?

[pertzschc]

Zitat von Apollonius:

Application.ExeFile erhältst du auch über ParamStr(0).

Danke das hilft.

Zusätzlich konnte ich es noch über folgende Funktion ermitteln:

Delphi-Quellcode:

function GetServiceDir(a_Service: string): string;
var
  Registrierung               : TRegistry;
begin
  Registrierung := TRegistry.Create();
  Registrierung.RootKey := HKEY_LOCAL_MACHINE;
  Registrierung.OpenKey('SYSTEM\CurrentControlSet\Services\' + a_Service, false);
  Result := Registrierung.ReadString('ImagePath');
end;

Danke+Gruß,
Christoph