setup_native/source/win32/customactions/shellextensions/checkrunningoffice.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: checkrunningoffice.cxx,v $
  10  * $Revision: 1.1.4.2 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #define _WIN32_WINDOWS 0x0410
  32
  33 #ifdef _MSC_VER
  34 #pragma warning(push, 1) /* disable warnings within system headers */
  35 #endif
  36 #define WIN32_LEAN_AND_MEAN
  37 #include <windows.h>
  38 #include <msiquery.h>
  39 #ifdef _MSC_VER
  40 #pragma warning(pop)
  41 #endif
  42
  43 #include <malloc.h>
  44 #include <assert.h>
  45
  46 #ifdef UNICODE
  47 #define _UNICODE
  48 #define _tstring        wstring
  49 #else
  50 #define _tstring        string
  51 #endif
  52 #include <tchar.h>
  53 #include <string>
  54 #include <queue>
  55 #include <stdio.h>
  56
  57 #include <systools/win32/uwinapi.h>
  58 #include <../tools/seterror.hxx>
  59
  60 #define WININIT_FILENAME        "wininit.ini"
  61 #define RENAME_SECTION          "rename"
  62
  63 #ifdef DEBUG
  64 inline void OutputDebugStringFormat( LPCTSTR pFormat, ... )
  65 {
  66     _TCHAR      buffer[1024];
  67     va_list     args;
  68
  69     va_start( args, pFormat );
  70     _vsntprintf( buffer, elementsof(buffer), pFormat, args );
  71     OutputDebugString( buffer );
  72 }
  73 #else
  74 static inline void OutputDebugStringFormat( LPCTSTR, ... )
  75 {
  76 }
  77 #endif
  78
  79 static std::_tstring GetMsiProperty( MSIHANDLE handle, const std::_tstring& sProperty )
  80 {
  81     std::_tstring       result;
  82     TCHAR       szDummy[1] = TEXT("");
  83     DWORD       nChars = 0;
  84
  85     if ( MsiGetProperty( handle, sProperty.c_str(), szDummy, &nChars ) == ERROR_MORE_DATA )
  86     {
  87         DWORD nBytes = ++nChars * sizeof(TCHAR);
  88         LPTSTR buffer = reinterpret_cast<LPTSTR>(_alloca(nBytes));
  89         ZeroMemory( buffer, nBytes );
  90         MsiGetProperty(handle, sProperty.c_str(), buffer, &nChars);
  91         result = buffer;
  92     }
  93
  94     return      result;
  95 }
  96
  97 static inline bool IsSetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty)
  98 {
  99     std::_tstring value = GetMsiProperty(handle, sProperty);
 100     return (value.length() > 0);
 101 }
 102
 103 static inline void UnsetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty)
 104 {
 105     MsiSetProperty(handle, sProperty.c_str(), NULL);
 106 }
 107
 108 static inline void SetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty)
 109 {
 110     MsiSetProperty(handle, sProperty.c_str(), TEXT("1"));
 111 }
 112
 113 static BOOL MoveFileEx9x( LPCSTR lpExistingFileNameA, LPCSTR lpNewFileNameA, DWORD dwFlags )
 114 {
 115     BOOL        fSuccess = FALSE;       // assume failure
 116
 117     // Windows 9x has a special mechanism to move files after reboot
 118
 119     if ( dwFlags & MOVEFILE_DELAY_UNTIL_REBOOT )
 120     {
 121         CHAR    szExistingFileNameA[MAX_PATH];
 122         CHAR    szNewFileNameA[MAX_PATH] = "NUL";
 123
 124         // Path names in WININIT.INI must be in short path name form
 125
 126         if (
 127             GetShortPathNameA( lpExistingFileNameA, szExistingFileNameA, MAX_PATH ) &&
 128             (!lpNewFileNameA || GetShortPathNameA( lpNewFileNameA, szNewFileNameA, MAX_PATH ))
 129             )
 130         {
 131             CHAR        szBuffer[32767];        // The buffer size must not exceed 32K
 132             DWORD       dwBufLen = GetPrivateProfileSectionA( RENAME_SECTION, szBuffer, elementsof(szBuffer), WININIT_FILENAME );
 133
 134             CHAR        szRename[MAX_PATH];     // This is enough for at most to times 67 chracters
 135             strcpy( szRename, szNewFileNameA );
 136             strcat( szRename, "=" );
 137             strcat( szRename, szExistingFileNameA );
 138             size_t      lnRename = strlen(szRename);
 139
 140             if ( dwBufLen + lnRename + 2 <= elementsof(szBuffer) )
 141             {
 142                 CopyMemory( &szBuffer[dwBufLen], szRename, lnRename );
 143                 szBuffer[dwBufLen + lnRename ] = 0;
 144                 szBuffer[dwBufLen + lnRename + 1 ] = 0;
 145
 146                 fSuccess = WritePrivateProfileSectionA( RENAME_SECTION, szBuffer, WININIT_FILENAME );
 147             }
 148             else
 149                 SetLastError( ERROR_BUFFER_OVERFLOW );
 150         }
 151     }
 152     else
 153     {
 154
 155         fSuccess = MoveFileA( lpExistingFileNameA, lpNewFileNameA );
 156
 157         if ( !fSuccess && GetLastError() != ERROR_ACCESS_DENIED &&
 158             0 != (dwFlags & (MOVEFILE_COPY_ALLOWED | MOVEFILE_REPLACE_EXISTING)) )
 159         {
 160             BOOL        bFailIfExist = 0 == (dwFlags & MOVEFILE_REPLACE_EXISTING);
 161
 162             fSuccess = CopyFileA( lpExistingFileNameA, lpNewFileNameA, bFailIfExist );
 163
 164             if ( fSuccess )
 165                 fSuccess = DeleteFileA( lpExistingFileNameA );
 166         }
 167
 168     }
 169
 170     return fSuccess;
 171 }
 172
 173 static BOOL MoveFileExImpl( LPCSTR lpExistingFileNameA, LPCSTR lpNewFileNameA, DWORD dwFlags )
 174 {
 175     if ( 0 > ((LONG)GetVersion())) // High order bit indicates Win 9x
 176         return MoveFileEx9x( lpExistingFileNameA, lpNewFileNameA, dwFlags );
 177     else
 178         return MoveFileExA( lpExistingFileNameA, lpNewFileNameA, dwFlags );
 179 }
 180
 181 extern "C" UINT __stdcall IsOfficeRunning( MSIHANDLE handle )
 182 {
 183     OSVERSIONINFO       osverinfo;
 184     osverinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
 185     GetVersionEx( &osverinfo );
 186
 187     // renaming the vcl resource doesn't work reliable with OS >= Windows Vista
 188     if (osverinfo.dwMajorVersion < 6 )
 189     {
 190         std::_tstring sInstDir = GetMsiProperty( handle, TEXT("BASISINSTALLLOCATION") );
 191         // Property empty -> no office installed
 192         if ( sInstDir.length() == 0 )
 193             return ERROR_SUCCESS;
 194
 195         std::_tstring sResourceDir = sInstDir + TEXT("program\\resource\\");
 196         std::_tstring sPattern = sResourceDir + TEXT("vcl*.res");
 197
 198 //        std::_tstring mystr;
 199 //        mystr = "IsOfficeRunning start. Checking file in dir: " + sResourceDir;
 200 //        MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK );
 201
 202         WIN32_FIND_DATA aFindFileData;
 203         HANDLE  hFind = FindFirstFile( sPattern.c_str(), &aFindFileData );
 204
 205         if ( IsValidHandle(hFind) )
 206         {
 207             BOOL        fSuccess = false;
 208             bool        fRenameSucceeded;
 209
 210             do
 211             {
 212                 std::_tstring   sResourceFile = sResourceDir + aFindFileData.cFileName;
 213                 std::_tstring   sIntermediate = sResourceFile + TEXT(".tmp");
 214
 215                 fRenameSucceeded = MoveFileExImpl( sResourceFile.c_str(), sIntermediate.c_str(), MOVEFILE_REPLACE_EXISTING );
 216                 if ( fRenameSucceeded )
 217                 {
 218                     MoveFileExImpl( sIntermediate.c_str(), sResourceFile.c_str(), 0 );
 219                     fSuccess = FindNextFile( hFind, &aFindFileData );
 220                 }
 221             } while ( fSuccess && fRenameSucceeded );
 222
 223             if ( !fRenameSucceeded )
 224             {
 225                 MsiSetProperty(handle, TEXT("OFFICERUNS"), TEXT("1"));
 226                 SetMsiErrorCode( MSI_ERROR_OFFICE_IS_RUNNING );
 227
 228 //                mystr = "Office is running";
 229 //                MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK );
 230             }
 231
 232             FindClose( hFind );
 233         }
 234 //        mystr = "IsOfficeRunning end";
 235 //        MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK );
 236     }
 237     else
 238     {
 239         std::_tstring sOfficeInstallPath = GetMsiProperty(handle, TEXT("OFFICEINSTALLLOCATION"));
 240         // Property empty -> no office installed
 241         if ( sOfficeInstallPath.length() == 0 )
 242             return ERROR_SUCCESS;
 243
 244         std::_tstring sRenameSrc = sOfficeInstallPath + TEXT("program");
 245         std::_tstring sRenameDst = sOfficeInstallPath + TEXT("program_test");
 246
 247         bool bSuccess = MoveFile( sRenameSrc.c_str(), sRenameDst.c_str() );
 248
 249         if ( bSuccess )
 250         {
 251             MoveFile( sRenameDst.c_str(), sRenameSrc.c_str() );
 252         }
 253         else
 254         {
 255             DWORD  dwError = GetLastError();
 256             LPVOID lpMsgBuf;
 257             // When there is no program folder, there could be no running office
 258             if ( dwError == ERROR_FILE_NOT_FOUND )
 259                 return ERROR_SUCCESS;
 260             // The destination folder should never exist, don't know what to do here
 261             if ( dwError == ERROR_ALREADY_EXISTS )
 262                 return ERROR_SUCCESS;
 263
 264             if ( FormatMessage(
 265                 FORMAT_MESSAGE_ALLOCATE_BUFFER |
 266                 FORMAT_MESSAGE_FROM_SYSTEM |
 267                 FORMAT_MESSAGE_IGNORE_INSERTS,
 268                 NULL,
 269                 GetLastError(),
 270                 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
 271                 (LPTSTR) &lpMsgBuf,
 272                 0,
 273                 NULL ))
 274             {
 275                 OutputDebugStringFormat( TEXT("Error Code %d: %s"), dwError, lpMsgBuf );
 276                 LocalFree( lpMsgBuf );
 277             }
 278             else
 279                 OutputDebugStringFormat( TEXT("Error Code %d: Unknown"), dwError );
 280
 281             MsiSetProperty( handle, TEXT("OFFICERUNS"), TEXT("1") );
 282             SetMsiErrorCode( MSI_ERROR_OFFICE_IS_RUNNING );
 283         }
 284     }
 285
 286     return ERROR_SUCCESS;
 287 }
 288
 289
 290