Den Installationspfad einer Anwendung ermitteln

[marabu]

Hallo,

hier noch eine andere Schreibweise der Funktion:

Delphi-Quellcode:

function GetAppPath(const App: string): string;
const
  REG_KEY = 'Software\Microsoft\Windows\CurrentVersion\App Paths\';
  REG_VAL = 'Path';
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKeyReadOnly(REG_KEY + App)
      then Result := ReadString('Path')
      else Result := '';
  finally
    Free;
  end;
end;

Und noch ein paar Anmerkungen: Diese Funktion besorgt den nach Windows-Konvention eingetragenen Pfad für ein bestimmtes Programm mit eindeutigem Namen. Mit dem Installationsverzeichnis hat das nur mittelbar zu tun und oft dürfte der Schlüssel ganz fehlen, da er nur bei solchen Programmen eingetragen wird (werden soll), die entweder andere Programme bzw Programmteile nachladen oder die bequem über das Startmenü (Ausführen) gestartet werden sollen.

Den Schreibzugriff auf die Registry in Verbindung mit der automatischen Erzeugung des registry keys habe ich aus dem Code entfernt, weil das ungewollte Nebeneffekte produzieren würde. CloseKey wird in diesem konkreten Fall nicht benötigt, da weder eine Änderung der Registry erfolgt, noch der Schlüssel eine nennenswerte Zeit geöffnet bleibt. Der Destruktor der Klasse schließt, wie auch einige andere Methoden, den aktuell geöffneten Schlüssel automatisch. Es schadet natürlich nicht, wenn man es im eigenen Code macht.

Freundliche Grüße