Programmpfad anderer Programme ermitteln

[DeddyH]

Wenn, dann bitte so:

Delphi-Quellcode:

uses ..., Registry;

...
...

function GetPath:String;
var
  reg: tregistry;
begin
  Result := '';
  reg := Tregistry.create;
  try
    reg.root := HKEY_LOCAL_MACHINE;
    if reg.openkeyreadonly('Software\Microsoft\Windows\CurrentVersion\Uninstall\DEINAPPNAME') then
    begin
      Result := reg.readstring('InstallLocation');
    end;
  finally
    reg.free;
  end;
end;