diff --git a/DN.DelphiInstallation.Provider.pas b/DN.DelphiInstallation.Provider.pas index 008c160..d69a697 100644 --- a/DN.DelphiInstallation.Provider.pas +++ b/DN.DelphiInstallation.Provider.pas @@ -77,7 +77,10 @@ procedure TDNDelphiInstallationProvider.LoadInstallations; for LKey in LKeyNames do begin LInstallation := TDNDelphInstallation.Create(TPath.Combine(CRootKey, LKey)); - FInstallations.Add(LInstallation); + if LInstallation.Application <> '' then + begin + FInstallations.Add(LInstallation); + end; end; RemoveIgnoredInstallations(); end;