fixed: don't add installation entry if registry key is empty/corrupte…

…d/invalid
Memnarch · May 7, 2019 · afb78f4 · afb78f4
1 parent f5fa222
commit afb78f4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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;