Subversion Repositories autosfx

#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