git.oblomov.eu Git - wine/blob - dlls/shlwapi/shlwapi_main.c

   1 /*
   2  * SHLWAPI initialisation
   3  *
   4  *  Copyright 1998 Marcus Meissner
   5  *  Copyright 1998 Juergen Schmied (jsch)
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "winbase.h"
  23 #include "winerror.h"
  24 #include "winreg.h"
  25 #include "wine/debug.h"
  26 #define NO_SHLWAPI_STREAM
  27 #include "shlwapi.h"
  28
  29 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  30
  31 HINSTANCE shlwapi_hInstance = 0;
  32 HMODULE SHLWAPI_hshell32 = 0;
  33 HMODULE SHLWAPI_hwinmm = 0;
  34 HMODULE SHLWAPI_hcomdlg32 = 0;
  35 HMODULE SHLWAPI_hmpr = 0;
  36 HMODULE SHLWAPI_hmlang = 0;
  37 HMODULE SHLWAPI_hversion = 0;
  38
  39 DWORD SHLWAPI_ThreadRef_index = -1;
  40
  41 /*************************************************************************
  42  * SHLWAPI LibMain
  43  *
  44  * NOTES
  45  *  calling oleinitialize here breaks sone apps.
  46  */
  47 BOOL WINAPI SHLWAPI_LibMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
  48 {
  49         TRACE("0x%x 0x%lx %p\n", hinstDLL, fdwReason, fImpLoad);
  50         switch (fdwReason)
  51         {
  52           case DLL_PROCESS_ATTACH:
  53             shlwapi_hInstance = hinstDLL;
  54             SHLWAPI_ThreadRef_index = TlsAlloc();
  55             break;
  56           case DLL_PROCESS_DETACH:
  57             if (SHLWAPI_hshell32)  FreeLibrary(SHLWAPI_hshell32);
  58             if (SHLWAPI_hwinmm)    FreeLibrary(SHLWAPI_hwinmm);
  59             if (SHLWAPI_hcomdlg32) FreeLibrary(SHLWAPI_hcomdlg32);
  60             if (SHLWAPI_hmpr)      FreeLibrary(SHLWAPI_hmpr);
  61             if (SHLWAPI_hmlang)    FreeLibrary(SHLWAPI_hmlang);
  62             if (SHLWAPI_hversion)  FreeLibrary(SHLWAPI_hversion);
  63             if (SHLWAPI_ThreadRef_index >= 0) TlsFree(SHLWAPI_ThreadRef_index);
  64             break;
  65         }
  66         return TRUE;
  67 }
  68
  69 /***********************************************************************
  70  * DllGetVersion [SHLWAPI.@]
  71  *
  72  * Retrieves version information of the 'SHLWAPI.DLL'
  73  *
  74  * PARAMS
  75  *     pdvi [O] pointer to version information structure.
  76  *
  77  * RETURNS
  78  *     Success: S_OK
  79  *     Failure: E_INVALIDARG
  80  *
  81  * NOTES
  82  *     Returns version of a SHLWAPI.dll from IE5.01.
  83  */
  84
  85 HRESULT WINAPI SHLWAPI_DllGetVersion (DLLVERSIONINFO *pdvi)
  86 {
  87         if (pdvi->cbSize != sizeof(DLLVERSIONINFO))
  88         {
  89           WARN("wrong DLLVERSIONINFO size from app\n");
  90           return E_INVALIDARG;
  91         }
  92
  93         pdvi->dwMajorVersion = 5;
  94         pdvi->dwMinorVersion = 0;
  95         pdvi->dwBuildNumber = 2314;
  96         pdvi->dwPlatformID = 1000;
  97
  98         TRACE("%lu.%lu.%lu.%lu\n",
  99            pdvi->dwMajorVersion, pdvi->dwMinorVersion,
 100            pdvi->dwBuildNumber, pdvi->dwPlatformID);
 101
 102         return S_OK;
 103 }