Programmpfad anderer Programme ermitteln

[Chrischi]

Hab's schon:

Delphi-Quellcode:

try
  sDisplayName     := Reg.ReadString('Comments');
  sUninstallString := Reg.ReadString('InstallLocation');
  if sDisplayName <> '' then
  begin
     if sDisplayName = 'Mozilla Firefox' then
       begin
         ListItem := Listview1.Items.Add;
         ListItem.Caption := sDisplayName;
         ListItem.subitems.Add(sUninstallString);
         ShowMessage (sUninstallString);
     end;
   end;
finally
  Reg.CloseKey;
end;

Danke an alle für die Hilfe!!!