Den Installationspfad einer Anwendung ermitteln

[Mark90]

Ich denke das Ermitteln das installationspfades einer bestimmten anwendung ist relativ wichtig. (z.b. bei setups)

Da ich so eine Funktion noch nirgends gefunden habe trage ich sie hier ein.

Delphi-Quellcode:

uses registry;

function getAppPath(const App: String): String;
var
  reg: Tregistry;
  path: String;
begin
    reg := Tregistry.Create;
    with reg do begin
      RootKey := HKEY_LOCAL_MACHINE;
      openkey('Software\Microsoft\Windows\CurrentVersion\App Paths\' + App, true);
      path := readstring('Path');
      result := path;
    end;
end;

Ich denke niemand braucht hier Kommentare.

[Matze]

Da fehlen noch Resourcenschutzblöcke und ein CloseKey:

Delphi-Quellcode:

uses registry;

function getAppPath(const App: String): String;
var
  reg: Tregistry;
  path: String;
begin
  reg := Tregistry.Create;
  try
    with reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      if Openkey('Software\Microsoft\Windows\CurrentVersion\App Paths\' + App, true) then
      begin
        path := ReadString('Path');
        CloseKey;

        result := path;
      end else
        result := '';
    end;
  finally
    FreeAndNil(reg);
  end;
end;

[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

[Lasse2002]

Da gibt es noch ein paar Feinheiten...

Path = eine Liste von möglichen Ordnern, getrennt durch Semikolons
Wenn der Path vom Type REG_EXPAND_SZ ist, dann mußt du noch einmal ExpandEnvironmentStrings aufrufen.
Die Erweiterung .exe kann weggelassen werden.

(Siehe msimn.exe %ProgramFiles%\Outlook Express).