Update the 7z installer stub source to 18.05.

Tag #1022

1 files changed, 340 insertions, 0 deletions

diff --git a/other-licenses/7zstub/src/CPP/Windows/Shell.cpp b/other-licenses/7zstub/src/CPP/Windows/Shell.cpp
new file mode 100644
index 000000000..fde29ac7f
--- /dev/null
+++ b/other-licenses/7zstub/src/CPP/Windows/Shell.cpp
@@ -0,0 +1,340 @@
+// Windows/Shell.cpp

+

+#include "StdAfx.h"

+

+#include "../Common/MyCom.h"

+#ifndef _UNICODE

+#include "../Common/StringConvert.h"

+#endif

+

+#include "COM.h"

+#include "Shell.h"

+

+#ifndef _UNICODE

+extern bool g_IsNT;

+#endif

+

+namespace NWindows {

+namespace NShell {

+

+#ifndef UNDER_CE

+

+// SHGetMalloc is unsupported in Windows Mobile?

+

+void CItemIDList::Free()

+{

+  if (m_Object == NULL)

+    return;

+  CMyComPtr<IMalloc> shellMalloc;

+  if (::SHGetMalloc(&shellMalloc) != NOERROR)

+    throw 41099;

+  shellMalloc->Free(m_Object);

+  m_Object = NULL;

+}

+

+/*

+CItemIDList::(LPCITEMIDLIST itemIDList): m_Object(NULL)

+  {  *this = itemIDList; }

+CItemIDList::(const CItemIDList& itemIDList): m_Object(NULL)

+  {  *this = itemIDList; }

+

+CItemIDList& CItemIDList::operator=(LPCITEMIDLIST object)

+{

+  Free();

+  if (object != 0)

+  {

+    UINT32 size = GetSize(object);

+    m_Object = (LPITEMIDLIST)CoTaskMemAlloc(size);

+    if (m_Object != NULL)

+      MoveMemory(m_Object, object, size);

+  }

+  return *this;

+}

+

+CItemIDList& CItemIDList::operator=(const CItemIDList &object)

+{

+  Free();

+  if (object.m_Object != NULL)

+  {

+    UINT32 size = GetSize(object.m_Object);

+    m_Object = (LPITEMIDLIST)CoTaskMemAlloc(size);

+    if (m_Object != NULL)

+      MoveMemory(m_Object, object.m_Object, size);

+  }

+  return *this;

+}

+*/

+

+/////////////////////////////

+// CDrop

+

+void CDrop::Attach(HDROP object)

+{

+  Free();

+  m_Object = object;

+  m_Assigned = true;

+}

+

+void CDrop::Free()

+{

+  if (m_MustBeFinished && m_Assigned)

+    Finish();

+  m_Assigned = false;

+}

+

+UINT CDrop::QueryCountOfFiles()

+{

+  return QueryFile(0xFFFFFFFF, (LPTSTR)NULL, 0);

+}

+

+UString CDrop::QueryFileName(UINT fileIndex)

+{

+  UString fileName;

+  #ifndef _UNICODE

+  if (!g_IsNT)

+  {

+    AString fileNameA;

+    UINT bufferSize = QueryFile(fileIndex, (LPTSTR)NULL, 0);

+    const unsigned len = bufferSize + 2;

+    QueryFile(fileIndex, fileNameA.GetBuf(len), bufferSize + 1);

+    fileNameA.ReleaseBuf_CalcLen(len);

+    fileName = GetUnicodeString(fileNameA);

+  }

+  else

+  #endif

+  {

+    UINT bufferSize = QueryFile(fileIndex, (LPWSTR)NULL, 0);

+    const unsigned len = bufferSize + 2;

+    QueryFile(fileIndex, fileName.GetBuf(len), bufferSize + 1);

+    fileName.ReleaseBuf_CalcLen(len);

+  }

+  return fileName;

+}

+

+void CDrop::QueryFileNames(UStringVector &fileNames)

+{

+  UINT numFiles = QueryCountOfFiles();

+  fileNames.ClearAndReserve(numFiles);

+  for (UINT i = 0; i < numFiles; i++)

+    fileNames.AddInReserved(QueryFileName(i));

+}

+

+

+bool GetPathFromIDList(LPCITEMIDLIST itemIDList, CSysString &path)

+{

+  const unsigned len = MAX_PATH * 2;

+  bool result = BOOLToBool(::SHGetPathFromIDList(itemIDList, path.GetBuf(len)));

+  path.ReleaseBuf_CalcLen(len);

+  return result;

+}

+

+#endif

+

+#ifdef UNDER_CE

+

+bool BrowseForFolder(LPBROWSEINFO, CSysString)

+{

+  return false;

+}

+

+bool BrowseForFolder(HWND, LPCTSTR, UINT, LPCTSTR, CSysString &)

+{

+  return false;

+}

+

+bool BrowseForFolder(HWND /* owner */, LPCTSTR /* title */,

+    LPCTSTR /* initialFolder */, CSysString & /* resultPath */)

+{

+  /*

+  // SHBrowseForFolder doesn't work before CE 6.0 ?

+  if (GetProcAddress(LoadLibrary(L"ceshell.dll", L"SHBrowseForFolder") == 0)

+    MessageBoxW(0, L"no", L"", 0);

+  else

+    MessageBoxW(0, L"yes", L"", 0);

+  */

+  /*

+  UString s = "all files";

+  s += " (*.*)";

+  return MyGetOpenFileName(owner, title, initialFolder, s, resultPath, true);

+  */

+  return false;

+}

+

+#else

+

+bool BrowseForFolder(LPBROWSEINFO browseInfo, CSysString &resultPath)

+{

+  NWindows::NCOM::CComInitializer comInitializer;

+  LPITEMIDLIST itemIDList = ::SHBrowseForFolder(browseInfo);

+  if (itemIDList == NULL)

+    return false;

+  CItemIDList itemIDListHolder;

+  itemIDListHolder.Attach(itemIDList);

+  return GetPathFromIDList(itemIDList, resultPath);

+}

+

+

+int CALLBACK BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM /* lp */, LPARAM data)

+{

+  #ifndef UNDER_CE

+  switch (uMsg)

+  {

+    case BFFM_INITIALIZED:

+    {

+      SendMessage(hwnd, BFFM_SETSELECTION, TRUE, data);

+      break;

+    }

+    /*

+    case BFFM_SELCHANGED:

+    {

+      TCHAR dir[MAX_PATH];

+      if (::SHGetPathFromIDList((LPITEMIDLIST) lp , dir))

+        SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0, (LPARAM)dir);

+      else

+        SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0, (LPARAM)TEXT(""));

+      break;

+    }

+    */

+    default:

+      break;

+  }

+  #endif

+  return 0;

+}

+

+

+bool BrowseForFolder(HWND owner, LPCTSTR title, UINT ulFlags,

+    LPCTSTR initialFolder, CSysString &resultPath)

+{

+  CSysString displayName;

+  BROWSEINFO browseInfo;

+  browseInfo.hwndOwner = owner;

+  browseInfo.pidlRoot = NULL;

+

+  // there are Unicode/Astring problems in some WinCE SDK ?

+  /*

+  #ifdef UNDER_CE

+  browseInfo.pszDisplayName = (LPSTR)displayName.GetBuf(MAX_PATH);

+  browseInfo.lpszTitle = (LPCSTR)title;

+  #else

+  */

+  browseInfo.pszDisplayName = displayName.GetBuf(MAX_PATH);

+  browseInfo.lpszTitle = title;

+  // #endif

+  browseInfo.ulFlags = ulFlags;

+  browseInfo.lpfn = (initialFolder != NULL) ? BrowseCallbackProc : NULL;

+  browseInfo.lParam = (LPARAM)initialFolder;

+  return BrowseForFolder(&browseInfo, resultPath);

+}

+

+bool BrowseForFolder(HWND owner, LPCTSTR title,

+    LPCTSTR initialFolder, CSysString &resultPath)

+{

+  return BrowseForFolder(owner, title,

+      #ifndef UNDER_CE

+      BIF_NEWDIALOGSTYLE |

+      #endif

+      BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT, initialFolder, resultPath);

+  // BIF_STATUSTEXT; BIF_USENEWUI   (Version 5.0)

+}

+

+#ifndef _UNICODE

+

+typedef BOOL (WINAPI * SHGetPathFromIDListWP)(LPCITEMIDLIST pidl, LPWSTR pszPath);

+

+bool GetPathFromIDList(LPCITEMIDLIST itemIDList, UString &path)

+{

+  path.Empty();

+  SHGetPathFromIDListWP shGetPathFromIDListW = (SHGetPathFromIDListWP)

+    ::GetProcAddress(::GetModuleHandleW(L"shell32.dll"), "SHGetPathFromIDListW");

+  if (shGetPathFromIDListW == 0)

+    return false;

+  const unsigned len = MAX_PATH * 2;

+  bool result = BOOLToBool(shGetPathFromIDListW(itemIDList, path.GetBuf(len)));

+  path.ReleaseBuf_CalcLen(len);

+  return result;

+}

+

+typedef LPITEMIDLIST (WINAPI * SHBrowseForFolderWP)(LPBROWSEINFOW lpbi);

+

+bool BrowseForFolder(LPBROWSEINFOW browseInfo, UString &resultPath)

+{

+  NWindows::NCOM::CComInitializer comInitializer;

+  SHBrowseForFolderWP shBrowseForFolderW = (SHBrowseForFolderWP)

+    ::GetProcAddress(::GetModuleHandleW(L"shell32.dll"), "SHBrowseForFolderW");

+  if (shBrowseForFolderW == 0)

+    return false;

+  LPITEMIDLIST itemIDList = shBrowseForFolderW(browseInfo);

+  if (itemIDList == NULL)

+    return false;

+  CItemIDList itemIDListHolder;

+  itemIDListHolder.Attach(itemIDList);

+  return GetPathFromIDList(itemIDList, resultPath);

+}

+

+

+int CALLBACK BrowseCallbackProc2(HWND hwnd, UINT uMsg, LPARAM /* lp */, LPARAM data)

+{

+  switch (uMsg)

+  {

+    case BFFM_INITIALIZED:

+    {

+      SendMessageW(hwnd, BFFM_SETSELECTIONW, TRUE, data);

+      break;

+    }

+    /*

+    case BFFM_SELCHANGED:

+    {

+      wchar_t dir[MAX_PATH * 2];

+

+      if (shGetPathFromIDListW((LPITEMIDLIST)lp , dir))

+        SendMessageW(hwnd, BFFM_SETSTATUSTEXTW, 0, (LPARAM)dir);

+      else

+        SendMessageW(hwnd, BFFM_SETSTATUSTEXTW, 0, (LPARAM)L"");

+      break;

+    }

+    */

+    default:

+      break;

+  }

+  return 0;

+}

+

+

+static bool BrowseForFolder(HWND owner, LPCWSTR title, UINT ulFlags,

+    LPCWSTR initialFolder, UString &resultPath)

+{

+  UString displayName;

+  BROWSEINFOW browseInfo;

+  browseInfo.hwndOwner = owner;

+  browseInfo.pidlRoot = NULL;

+  browseInfo.pszDisplayName = displayName.GetBuf(MAX_PATH);

+  browseInfo.lpszTitle = title;

+  browseInfo.ulFlags = ulFlags;

+  browseInfo.lpfn = (initialFolder != NULL) ? BrowseCallbackProc2 : NULL;

+  browseInfo.lParam = (LPARAM)initialFolder;

+  return BrowseForFolder(&browseInfo, resultPath);

+}

+

+bool BrowseForFolder(HWND owner, LPCWSTR title, LPCWSTR initialFolder, UString &resultPath)

+{

+  if (g_IsNT)

+    return BrowseForFolder(owner, title,

+      BIF_NEWDIALOGSTYLE | BIF_RETURNONLYFSDIRS

+      //  | BIF_STATUSTEXT // This flag is not supported when BIF_NEWDIALOGSTYLE is specified.

+      , initialFolder, resultPath);

+  // BIF_STATUSTEXT; BIF_USENEWUI   (Version 5.0)

+  CSysString s;

+  bool res = BrowseForFolder(owner, GetSystemString(title),

+      BIF_NEWDIALOGSTYLE | BIF_RETURNONLYFSDIRS

+      // | BIF_STATUSTEXT  // This flag is not supported when BIF_NEWDIALOGSTYLE is specified.

+      , GetSystemString(initialFolder), s);

+  resultPath = GetUnicodeString(s);

+  return res;

+}

+

+#endif

+

+#endif

+

+}}