Added the possibility to customize the ProgramName but it does not seem to help with venv.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -2247,6 +2247,7 @@ TPythonEngine = class(TPythonInterface)
  procedure Lock;
  procedure Unlock;
  procedure SetPythonHome(const PythonHome: string);
+ procedure SetProgramName(const ProgramName: string);
  function IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
  function GetAttrString(obj: PPyObject; AName: PAnsiChar):PAnsiChar;
  function CleanString(const s : AnsiString) : AnsiString;
@@ -4859,18 +4860,20 @@ procedure TPythonEngine.Initialize;
  if IsPython3000 then begin
  if Assigned(Py_SetProgramName3000) then
  begin
- FProgramNameW := ParamStr(0);
+ if FProgramNameW = '' then
+ FProgramNameW := ParamStr(0);
  Py_SetProgramName3000(PWideChar(FProgramNameW));
  end
  end else begin
  if Assigned(Py_SetProgramName) then
  begin
- FProgramName := AnsiString(ParamStr(0));
+ if FProgramName = '' then
+ FProgramName := AnsiString(ParamStr(0));
  Py_SetProgramName(PAnsiChar(FProgramName));
  end
  end;
  AssignPyFlags;
- if FPythonHomeW<>'' then begin
+ if FPythonHomeW <> '' then begin
  if IsPython3000 then
  Py_SetPythonHome3000(PChar(FPythonHomeW))
  else
@@ -5139,6 +5142,12 @@ procedure TPythonEngine.SetPythonHome(const PythonHome: string);
  FPythonHome := EncodeString(PythonHome);
 end;
 
+procedure TPythonEngine.SetProgramName(const ProgramName: string);
+begin
+ FProgramNameW := ProgramName;
+ FProgramName := EncodeString(ProgramName);
+end;
+
 function TPythonEngine.IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
 begin
  result := ob^.ob_type = obt;