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.