function __ShellExecuteEx(Filename, Parameters: String; ShowCmd: Integer; _Wait: Boolean; _ShowMessageOnError: Boolean; out mExitCode: DWORD; out mLastOSError: DWORD): Boolean;
var
  ExecInfo: SHELLEXECUTEINFOW;
  FilenamePart, PathPart: String;
  WaitResult: DWORD;
  ExitCode: Cardinal;
  OldWOW64: Pointer;
begin
  mExitCode  := 0;
  mLastOSError := 0;

  PathPart := System.IOUtils.TPath.GetDirectoryName(Filename);
  FilenamePart := IOUtils.TPath.GetFileName(Filename);

  try
    ExecInfo.cbSize       := sizeof(SHELLEXECUTEINFOW);
    ExecInfo.fMask        := SEE_MASK_NOCLOSEPROCESS + SEE_MASK_NOZONECHECKS;
    if not _ShowMessageOnError then
      ExecInfo.fMask := ExecInfo.fMask + SEE_MASK_FLAG_NO_UI;
    ExecInfo.lpVerb       := PChar('OPEN');
    ExecInfo.lpFile       := PChar(FilenamePart);
    ExecInfo.lpParameters := PChar(Parameters);
    ExecInfo.lpDirectory  := PChar(PathPart);
    ExecInfo.nShow        := ShowCmd;

    result := ShellAPI.ShellExecuteEx(@ExecInfo);
    if result then begin
      try
        if _Wait then begin
        WaitResult := Windows.WaitForSingleObject(ExecInfo.hProcess, INFINITE);
        if WaitResult <> Windows.WAIT_OBJECT_0 then begin
          Windows.TerminateProcess(ExecInfo.hProcess, 0)
        end else begin
          Windows.GetExitCodeProcess(ExecInfo.hProcess, ExitCode);
          mExitCode := ExitCode;
        end;
      end;
      finally
        Windows.CloseHandle(ExecInfo.hProcess);
      end;
    end else
      mLastOSError := GetLastError();
  finally
  end;
end;