Programmpfad anderer Programme ermitteln

[Chrischi]

Danke für die schnellen Antworten!

Jedoch ein Problem:

Code:

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\Mozilla Firefox (3.0.1)') then
    begin
      Result := reg.readstring('InstallLocation');
    end;
  finally
    reg.free;
  end;
end;

Soweit schön und gut, aber beim Ausführen kommt folgende Meldung:

Code:

[Fehler] Unit1.pas(31): E2003 Undefinierter Bezeichner: 'root'