#include "stdafx.h"
#pragma hdrstop
#if defined(UNICODE) && defined(ALLOW_WIN98)
/* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is for Open Layer for Unicode (opencow).
*
* The Initial Developer of the Original Code is Brodie Thiesfield.
* Portions created by the Initial Developer are Copyright (C) 2004
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* Alternatively, the contents of this file may be used under the terms of
* either the GNU General Public License Version 2 or later (the "GPL"), or
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** */
/************************************************************************
Copyright (C) 2009, 2010 by Russell J. Peters, Roger Aelbrecht
This file is part of TZipMaster Version 1.9.
TZipMaster is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
TZipMaster is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with TZipMaster. If not, see <http://www.gnu.org/licenses/>.
contact: problems@delphizip.org (include ZipMaster in the subject).
updates: http://www.delphizip.org
DelphiZip maillist subscribe at http://www.freelists.org/list/delphizip
************************************************************************/
// define these symbols so that we don't get dllimport linkage
// from the system headers
//#define _SHELL32_
//#include <windows.h>
#include "MbcsBuffer.h"
#include <shellapi.h>
#include <shlobj.h>
//#include "WinUser.h"
// ----------------------------------------------------------------------------
// API
// DragQueryFileW
// ExtractIconExW
// ExtractIconW
// FindExecutableW
#if 0
EXTERN_C LPITEMIDLIST STDAPICALLTYPE
SHBrowseForFolderW(
LPBROWSEINFOW lpbi
)
{
char mbcsDisplayName[MAX_PATH];
BROWSEINFOA biA;
::ZeroMemory(&biA, sizeof(biA));
biA.hwndOwner = lpbi->hwndOwner;
biA.pidlRoot = lpbi->pidlRoot;
biA.ulFlags = lpbi->ulFlags;
biA.lpfn = lpbi->lpfn;
biA.lParam = lpbi->lParam;
biA.iImage = lpbi->iImage;
biA.pszDisplayName = mbcsDisplayName;
CMbcsBuffer mbcsTitle;
if (!mbcsTitle.FromUnicode(lpbi->lpszTitle))
return NULL;
biA.lpszTitle = mbcsTitle;
LPITEMIDLIST result = ::SHBrowseForFolderA(&biA);
if (!result)
return NULL;
::MultiByteToWideChar(CP_ACP, 0, mbcsDisplayName, -1, lpbi->pszDisplayName, MAX_PATH);
return result;
}
#endif
// SHChangeNotify
#if 0
extern "C" void WINAPI zSHChangeNotify(LONG wEventId, UINT uFlags, LPCVOID dwItem1, LPCVOID dwItem2)
{
if (!(uFlags & SHCNF_PATH))
{
::SHChangeNotify(wEventId, uFlags, dwItem1, dwItem2);
return;
}
CMbcsBuffer mbcsItem1;
if (!mbcsItem1.FromUnicode((LPCTSTR)dwItem1))
return ;
char *item2 = 0;
if (dwItem2)
{
CMbcsBuffer mbcsItem2;
if (!mbcsItem2.FromUnicode((LPCTSTR)dwItem2))
return ;
item2 = mbcsItem2;
}
::SHChangeNotify(wEventId, uFlags, mbcsItem1, item2);
}
#endif
// SHFileOperationW
int zzlen(LPCTSTR str)
{
if (!str || !*str)
return 0;
int r = 0;
do
{
for (str; *str; str++)
r++;
r++;
}
while (*++str);
return r;
}
extern "C" int WINAPI zSHFileOperationW(LPSHFILEOPSTRUCT lpFileOp)
{
CMbcsBuffer mbcsFrom;
CMbcsBuffer mbcsTo;
CMbcsBuffer mbcsTitle;
if (lpFileOp->pFrom)
{
int FromLen = zzlen(lpFileOp->pFrom);
if (!mbcsFrom.FromUnicode(lpFileOp->pFrom, FromLen))
return 0x81;
lpFileOp->pFrom = (TCHAR*)mbcsFrom.get();
}
if (lpFileOp->pTo)
{
int ToLen = zzlen(lpFileOp->pTo);
if (!mbcsTo.FromUnicode(lpFileOp->pTo, ToLen))
return 0x81;
lpFileOp->pTo = (TCHAR*)mbcsTo.get();
}
if (lpFileOp->lpszProgressTitle)
{
int TitleLen = zzlen(lpFileOp->lpszProgressTitle);
if (!mbcsTitle.FromUnicode(lpFileOp->lpszProgressTitle, TitleLen))
return 0x81;
lpFileOp->lpszProgressTitle = (TCHAR*)mbcsTitle.get();
}
return ::SHFileOperationA((_SHFILEOPSTRUCTA *)lpFileOp);
}
// SHGetFileInfoW
// SHGetNewLinkInfoW
#if 0
EXTERN_C BOOL STDAPICALLTYPE
SHGetPathFromIDListW(
LPCITEMIDLIST pidl,
LPWSTR pszPath
)
{
char mbcsPath[MAX_PATH];
BOOL success = ::SHGetPathFromIDListA(pidl, mbcsPath);
if (!success)
return FALSE;
int nResult = ::MultiByteToWideChar(CP_ACP, 0, mbcsPath, -1, pszPath, MAX_PATH);
if (nResult < 1)
return FALSE;
return TRUE;
}
EXTERN_C INT STDAPICALLTYPE
ShellAboutW(
HWND hWnd,
LPCWSTR szApp,
LPCWSTR szOtherStuff,
HICON hIcon
)
{
CMbcsBuffer mbcsApp;
if (!mbcsApp.FromUnicode(szApp))
return 0;
CMbcsBuffer mbcsOtherStuff;
if (!mbcsOtherStuff.FromUnicode(szOtherStuff))
return 0;
return ::ShellAboutA(hWnd, mbcsApp, mbcsOtherStuff, hIcon);
}
// ShellExecuteExW
EXTERN_C HINSTANCE STDAPICALLTYPE
ShellExecuteW(
HWND hwnd,
LPCWSTR lpOperation,
LPCWSTR lpFile,
LPCWSTR lpParameters,
LPCWSTR lpDirectory,
INT nShowCmd
)
{
CMbcsBuffer mbcsOperation;
if (!mbcsOperation.FromUnicode(lpOperation))
return 0;
CMbcsBuffer mbcsFile;
if (!mbcsFile.FromUnicode(lpFile))
return 0;
CMbcsBuffer mbcsParameters;
if (!mbcsParameters.FromUnicode(lpParameters))
return 0;
CMbcsBuffer mbcsDirectory;
if (!mbcsDirectory.FromUnicode(lpDirectory))
return 0;
return ::ShellExecuteA(hwnd, mbcsOperation, mbcsFile, mbcsParameters, mbcsDirectory, nShowCmd);
}
#endif
// Shell_NotifyIconW
#endif