Check whether InstallPath from Registry exists

pyscripter · pyscripter · commit b1c0ed5a3b5c · 2018-08-26T04:44:46.000+03:00
diff --git a/PythonForDelphi/Components/Sources/Core/PythonVersions.pas b/PythonForDelphi/Components/Sources/Core/PythonVersions.pas
@@ -320,7 +320,8 @@ function GetRegisteredPythonVersion(SysVersion: string;
               PythonVersion.DLLPath := PythonVersion.InstallPath;
             CloseKey;
           end;
-          Result := PythonVersion.InstallPath <> '';
+          Result := (PythonVersion.InstallPath <> '') and
+            DirectoryExists(ExcludeTrailingPathDelimiter(PythonVersion.InstallPath));
           if not Result then Exit;
 
           if OpenKey(Key, False) then begin
