Removed Py_GetPlatform

Added PythonExecutable to PythonVersions

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -2069,7 +2069,6 @@   TPythonInterface=class(TDynamicDll)
   procedure   Py_XINCREF  ( op: PPyObject);
   procedure   Py_XDECREF  ( op: PPyObject);
 
-  function Py_GetPlatform: PAnsiChar; cdecl;
   function PyCode_Addr2Line( co: PPyCodeObject; addrq : Integer ) : Integer; cdecl;
   function Py_GetBuildInfo: PAnsiChar; cdecl;
   function PyImport_ExecCodeModule( const AName : AnsiString; codeobject : PPyObject) : PPyObject;
@@ -4125,11 +4124,6 @@ procedure TPythonInterface.Py_XDECREF(op: PPyObject);
   if op <> nil then Py_DECREF(op);
 end;
 
-function TPythonInterface.Py_GetPlatform: PAnsiChar; cdecl;
-begin
-  Py_GetPlatform := 'win32';
-end;
-
 // This function is copied from compile.c because it was not
 // exported in the Dll
 function TPythonInterface.PyCode_Addr2Line( co: PPyCodeObject; addrq : Integer ) : Integer; cdecl;

PythonForDelphi/Components/Sources/Core/PythonVersions.pas

@@ -28,6 +28,7 @@   TPythonVersion = record
     function GetDisplayName: string;
     function GetApiVersion: integer;
     function GetSysArchitecture: string;
+    function GetPythonExecutable: string;
   public
     IsRegistered: Boolean;
     IsAllUsers: Boolean;
@@ -37,6 +38,7 @@   TPythonVersion = record
     InstallPath: string;
     PythonPath: string;
     procedure AssignTo(PythonEngine: TPersistent);
+    property PythonExecutable: string read GetPythonExecutable;
     property DLLName: string read GetDLLName;
     property SysArchitecture: string read GetSysArchitecture;
     property IsPython3K: Boolean read GetIsPython3K;
@@ -156,6 +158,15 @@ function TPythonVersion.GetIsPython3K: Boolean;
   end;
 end;
 
+function TPythonVersion.GetPythonExecutable: string;
+begin
+  Result := IncludeTrailingPathDelimiter(InstallPath) + 'python.exe';
+  if not FileExists(Result) then begin
+    Result := IncludeTrailingPathDelimiter(InstallPath) +  'Scripts\python.exe';
+    if not FileExists(Result) then Result := '';
+  end;
+end;
+
 function TPythonVersion.GetSysArchitecture: string;
 begin
   Result := fSysArchitecture;