Workaround for python/cpython#100171

pyscripter · pyscripter · commit a20b191acd09 · 2022-12-13T17:08:06.000+02:00
diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas
@@ -4473,6 +4473,7 @@ procedure TPythonEngine.Initialize;
 
 var
   i : Integer;
+  WorkAround: AnsiString;
 begin
   if Assigned(gPythonEngine) then
     raise Exception.Create('There is already one instance of TPythonEngine running' );
@@ -4510,8 +4511,27 @@ procedure TPythonEngine.Initialize;
     with Clients[i] do
       if not Initialized then
         Initialize;
+
+  // WorkAround for https://github.com/python/cpython/issues/100171
+  if (MajorVersion = 3) and (MinorVersion >= 11) then
+  begin
+    WorkAround :=
+      'import sys'#13#10 + //0
+      'if sys.version_info > (3,11,0):'#13#10 + //1
+      '    import os'#13#10 + //2
+      ''#13#10 + //3
+      '    dllpath = os.path.join(sys.prefix, ''DLLs'')'#13#10 + //4
+      '    if dllpath not in sys.path:'#13#10 + //5
+      '        sys.path.insert(3, dllpath)'#13#10 + //6
+      ''#13#10 + //7
+      '    del dllpath'#13#10 + //8
+      '    del os'#13#10 + //9
+      'del sys'#13#10; //10
+    ExecString(WorkAround);
+  end;
+
   if InitScript.Count > 0 then
-    ExecStrings( InitScript );
+    ExecStrings(InitScript);
   if Assigned(FOnAfterInit) then
     FOnAfterInit(Self);
 end;
