Wie Exefile-Version eines TService ermitteln?

[pertzschc]

Hallo zusammen,

wie kann ich die in einem als Service erstellen Applikations-Exefile enthaltenen Versionsinfos auslesen?
Mein Problem ist, dass ich in einem solchen Service "Application.ExeName" nicht habe. Wie komme ich nun am besten an das Exefile?

Danke+Gruß,
Christoph

[Apollonius]

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

[pertzschc]

Zitat:

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