Den Installationspfad einer Anwendung ermitteln

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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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).

Den Installationspfad einer Anwendung ermitteln

Den Installationspfad einer Anwendung ermitteln

Re: Den Installationspfad einer Anwendung ermitteln

Re: Den Installationspfad einer Anwendung ermitteln

Re: Den Installationspfad einer Anwendung ermitteln

Forumregeln

Lasse2002 Registriert seit: 29. Nov 2004 79 Beiträge RAD-Studio 2009 Pro	#4 Re: Den Installationspfad einer Anwendung ermitteln 14. Mai 2007, 23:24 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). Lasse
	Zitat