Fix PythonVersionFromPath for python 3.10

pyscripter · pyscripter · commit 7be676d1c2b2 · 2021-09-05T22:26:38.000+03:00
diff --git a/Source/PythonVersions.pas b/Source/PythonVersions.pas
@@ -440,15 +440,15 @@ function PythonVersionFromPath(const Path: string; out PythonVersion: TPythonVer
     DLLFileName: string;
   begin
     Result := '';
-    Handle := FindFirstFile(PWideChar(APath+'\python??.dll'), FindFileData);
+    Handle := FindFirstFile(PWideChar(APath+'\python*.dll'), FindFileData);
     if Handle = INVALID_HANDLE_VALUE then Exit;  // not python dll
     DLLFileName:= FindFileData.cFileName;
     // skip if python3.dll was found
-    if Length(DLLFileName) <> 12 then FindNextFile(Handle, FindFileData);
+    if Length(DLLFileName) <= 11 then FindNextFile(Handle, FindFileData);
     if Handle = INVALID_HANDLE_VALUE then Exit;
     Windows.FindClose(Handle);
     DLLFileName:= FindFileData.cFileName;
-    if Length(DLLFileName) = 12 then
+    if Length(DLLFileName) > 11 then
       Result := DLLFileName;
   end;
 
