| /************************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| *************************************************************/ |
| |
| |
| |
| #define _WIN32_WINDOWS 0x0410 |
| |
| #ifdef _MSC_VER |
| #pragma warning(push, 1) /* disable warnings within system headers */ |
| #endif |
| #define WIN32_LEAN_AND_MEAN |
| #include <windows.h> |
| #include <msiquery.h> |
| #ifdef _MSC_VER |
| #pragma warning(pop) |
| #endif |
| |
| #include <malloc.h> |
| #include <assert.h> |
| |
| #ifdef UNICODE |
| #define _UNICODE |
| #define _tstring wstring |
| #else |
| #define _tstring string |
| #endif |
| #include <tchar.h> |
| #include <string> |
| #include <queue> |
| #include <stdio.h> |
| |
| #include <systools/win32/uwinapi.h> |
| #include <../tools/seterror.hxx> |
| |
| #define WININIT_FILENAME "wininit.ini" |
| #define RENAME_SECTION "rename" |
| |
| #ifdef DEBUG |
| inline void OutputDebugStringFormat( LPCTSTR pFormat, ... ) |
| { |
| _TCHAR buffer[1024]; |
| va_list args; |
| |
| va_start( args, pFormat ); |
| _vsntprintf( buffer, elementsof(buffer), pFormat, args ); |
| OutputDebugString( buffer ); |
| } |
| #else |
| static inline void OutputDebugStringFormat( LPCTSTR, ... ) |
| { |
| } |
| #endif |
| |
| static std::_tstring GetMsiProperty( MSIHANDLE handle, const std::_tstring& sProperty ) |
| { |
| std::_tstring result; |
| TCHAR szDummy[1] = TEXT(""); |
| DWORD nChars = 0; |
| |
| if ( MsiGetProperty( handle, sProperty.c_str(), szDummy, &nChars ) == ERROR_MORE_DATA ) |
| { |
| DWORD nBytes = ++nChars * sizeof(TCHAR); |
| LPTSTR buffer = reinterpret_cast<LPTSTR>(_alloca(nBytes)); |
| ZeroMemory( buffer, nBytes ); |
| MsiGetProperty(handle, sProperty.c_str(), buffer, &nChars); |
| result = buffer; |
| } |
| |
| return result; |
| } |
| |
| static inline bool IsSetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty) |
| { |
| std::_tstring value = GetMsiProperty(handle, sProperty); |
| return (value.length() > 0); |
| } |
| |
| static inline void UnsetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty) |
| { |
| MsiSetProperty(handle, sProperty.c_str(), NULL); |
| } |
| |
| static inline void SetMsiProperty(MSIHANDLE handle, const std::_tstring& sProperty) |
| { |
| MsiSetProperty(handle, sProperty.c_str(), TEXT("1")); |
| } |
| |
| static BOOL MoveFileEx9x( LPCSTR lpExistingFileNameA, LPCSTR lpNewFileNameA, DWORD dwFlags ) |
| { |
| BOOL fSuccess = FALSE; // assume failure |
| |
| // Windows 9x has a special mechanism to move files after reboot |
| |
| if ( dwFlags & MOVEFILE_DELAY_UNTIL_REBOOT ) |
| { |
| CHAR szExistingFileNameA[MAX_PATH]; |
| CHAR szNewFileNameA[MAX_PATH] = "NUL"; |
| |
| // Path names in WININIT.INI must be in short path name form |
| |
| if ( |
| GetShortPathNameA( lpExistingFileNameA, szExistingFileNameA, MAX_PATH ) && |
| (!lpNewFileNameA || GetShortPathNameA( lpNewFileNameA, szNewFileNameA, MAX_PATH )) |
| ) |
| { |
| CHAR szBuffer[32767]; // The buffer size must not exceed 32K |
| DWORD dwBufLen = GetPrivateProfileSectionA( RENAME_SECTION, szBuffer, elementsof(szBuffer), WININIT_FILENAME ); |
| |
| CHAR szRename[MAX_PATH]; // This is enough for at most to times 67 chracters |
| strcpy( szRename, szNewFileNameA ); |
| strcat( szRename, "=" ); |
| strcat( szRename, szExistingFileNameA ); |
| size_t lnRename = strlen(szRename); |
| |
| if ( dwBufLen + lnRename + 2 <= elementsof(szBuffer) ) |
| { |
| CopyMemory( &szBuffer[dwBufLen], szRename, lnRename ); |
| szBuffer[dwBufLen + lnRename ] = 0; |
| szBuffer[dwBufLen + lnRename + 1 ] = 0; |
| |
| fSuccess = WritePrivateProfileSectionA( RENAME_SECTION, szBuffer, WININIT_FILENAME ); |
| } |
| else |
| SetLastError( ERROR_BUFFER_OVERFLOW ); |
| } |
| } |
| else |
| { |
| |
| fSuccess = MoveFileA( lpExistingFileNameA, lpNewFileNameA ); |
| |
| if ( !fSuccess && GetLastError() != ERROR_ACCESS_DENIED && |
| 0 != (dwFlags & (MOVEFILE_COPY_ALLOWED | MOVEFILE_REPLACE_EXISTING)) ) |
| { |
| BOOL bFailIfExist = 0 == (dwFlags & MOVEFILE_REPLACE_EXISTING); |
| |
| fSuccess = CopyFileA( lpExistingFileNameA, lpNewFileNameA, bFailIfExist ); |
| |
| if ( fSuccess ) |
| fSuccess = DeleteFileA( lpExistingFileNameA ); |
| } |
| |
| } |
| |
| return fSuccess; |
| } |
| |
| static BOOL MoveFileExImpl( LPCSTR lpExistingFileNameA, LPCSTR lpNewFileNameA, DWORD dwFlags ) |
| { |
| if ( 0 > ((LONG)GetVersion())) // High order bit indicates Win 9x |
| return MoveFileEx9x( lpExistingFileNameA, lpNewFileNameA, dwFlags ); |
| else |
| return MoveFileExA( lpExistingFileNameA, lpNewFileNameA, dwFlags ); |
| } |
| |
| extern "C" UINT __stdcall IsOfficeRunning( MSIHANDLE handle ) |
| { |
| OSVERSIONINFO osverinfo; |
| osverinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); |
| GetVersionEx( &osverinfo ); |
| |
| // renaming the vcl resource doesn't work reliable with OS >= Windows Vista |
| if (osverinfo.dwMajorVersion < 6 ) |
| { |
| std::_tstring sInstDir = GetMsiProperty( handle, TEXT("INSTALLLOCATION") ); |
| // Property empty -> no office installed |
| if ( sInstDir.length() == 0 ) |
| return ERROR_SUCCESS; |
| // std::_tstring sResourceDir = sInstDir + TEXT("Basis\\program\\resource\\"); |
| std::_tstring sResourceDir = sInstDir + TEXT("program\\resource\\"); |
| std::_tstring sPattern = sResourceDir + TEXT("vcl*.res"); |
| |
| // std::_tstring mystr; |
| // mystr = "IsOfficeRunning start. Checking file in dir: " + sResourceDir; |
| // MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK ); |
| |
| WIN32_FIND_DATA aFindFileData; |
| HANDLE hFind = FindFirstFile( sPattern.c_str(), &aFindFileData ); |
| |
| if ( IsValidHandle(hFind) ) |
| { |
| BOOL fSuccess = false; |
| bool fRenameSucceeded; |
| |
| do |
| { |
| std::_tstring sResourceFile = sResourceDir + aFindFileData.cFileName; |
| std::_tstring sIntermediate = sResourceFile + TEXT(".tmp"); |
| |
| fRenameSucceeded = MoveFileExImpl( sResourceFile.c_str(), sIntermediate.c_str(), MOVEFILE_REPLACE_EXISTING ); |
| if ( fRenameSucceeded ) |
| { |
| MoveFileExImpl( sIntermediate.c_str(), sResourceFile.c_str(), 0 ); |
| fSuccess = FindNextFile( hFind, &aFindFileData ); |
| } |
| } while ( fSuccess && fRenameSucceeded ); |
| |
| if ( !fRenameSucceeded ) |
| { |
| MsiSetProperty(handle, TEXT("OFFICERUNS"), TEXT("1")); |
| SetMsiErrorCode( MSI_ERROR_OFFICE_IS_RUNNING ); |
| |
| // mystr = "Office is running"; |
| // MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK ); |
| } |
| |
| FindClose( hFind ); |
| } |
| // mystr = "IsOfficeRunning end"; |
| // MessageBox( NULL, mystr.c_str(), "IsOfficeRunning", MB_OK ); |
| } |
| else |
| { |
| std::_tstring sOfficeInstallPath = GetMsiProperty(handle, TEXT("INSTALLLOCATION")); |
| // Property empty -> no office installed |
| if ( sOfficeInstallPath.length() == 0 ) |
| return ERROR_SUCCESS; |
| |
| std::_tstring sRenameSrc = sOfficeInstallPath + TEXT("program"); |
| std::_tstring sRenameDst = sOfficeInstallPath + TEXT("program_test"); |
| |
| bool bSuccess = MoveFile( sRenameSrc.c_str(), sRenameDst.c_str() ); |
| |
| if ( bSuccess ) |
| { |
| MoveFile( sRenameDst.c_str(), sRenameSrc.c_str() ); |
| } |
| else |
| { |
| DWORD dwError = GetLastError(); |
| LPVOID lpMsgBuf; |
| // When there is no program folder, there could be no running office |
| if ( dwError == ERROR_FILE_NOT_FOUND ) |
| return ERROR_SUCCESS; |
| if ( dwError == ERROR_PATH_NOT_FOUND ) |
| return ERROR_SUCCESS; |
| |
| // The destination folder should never exist, don't know what to do here |
| if ( dwError == ERROR_ALREADY_EXISTS ) |
| return ERROR_SUCCESS; |
| |
| if ( FormatMessage( |
| FORMAT_MESSAGE_ALLOCATE_BUFFER | |
| FORMAT_MESSAGE_FROM_SYSTEM | |
| FORMAT_MESSAGE_IGNORE_INSERTS, |
| NULL, |
| GetLastError(), |
| MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language |
| (LPTSTR) &lpMsgBuf, |
| 0, |
| NULL )) |
| { |
| OutputDebugStringFormat( TEXT("Error Code %d: %s"), dwError, lpMsgBuf ); |
| LocalFree( lpMsgBuf ); |
| } |
| else |
| OutputDebugStringFormat( TEXT("Error Code %d: Unknown"), dwError ); |
| |
| MsiSetProperty( handle, TEXT("OFFICERUNS"), TEXT("1") ); |
| SetMsiErrorCode( MSI_ERROR_OFFICE_IS_RUNNING ); |
| } |
| } |
| |
| return ERROR_SUCCESS; |
| } |
| |
| |
| |
