utility.cpp

Go to the documentation of this file.

/*
 * Copyright 2003, 2004, 2005 Martin Fuchs
 *
 * This library 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 2.1 of the License, or (at your option) any later version.
 *
 * This library 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 this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */
 
 
 //
 // Explorer clone
 //
 // utility.cpp
 //
 // Martin Fuchs, 23.07.2003
 //
 
 
#include <precomp.h>
 
//#include <shellapi.h>
 
#include <time.h>
#include <sstream>
 
 
DWORD WINAPI Thread::ThreadProc(void* para)
{
    Thread* pThis = (Thread*) para;
 
    int ret = pThis->Run();
 
    pThis->_alive = false;
 
    return ret;
}
 
 
void CenterWindow(HWND hwnd)
{
    RECT rt, prt;
    GetWindowRect(hwnd, &rt);
 
    DWORD style;
    HWND owner = 0;
 
    for(HWND wh=hwnd; (wh=GetWindow(wh,GW_OWNER))!=0; )
        if (((style=GetWindowStyle(wh))&WS_VISIBLE) && !(style&WS_MINIMIZE))
            {owner=wh; break;}
 
    if (owner)
        GetWindowRect(owner, &prt);
    else
        SystemParametersInfo(SPI_GETWORKAREA, 0, &prt, 0);  //@@ GetDesktopWindow() wäre auch hilfreich.
 
    SetWindowPos(hwnd, 0, (prt.left+prt.right+rt.left-rt.right)/2,
                       (prt.top+prt.bottom+rt.top-rt.bottom)/2, 0,0, SWP_NOACTIVATE|SWP_NOSIZE|SWP_NOZORDER);
 
    MoveVisible(hwnd);
}
 
void MoveVisible(HWND hwnd)
{
    RECT rc;
    GetWindowRect(hwnd, &rc);
    int left=rc.left, top=rc.top;
 
    int xmax = GetSystemMetrics(SM_CXSCREEN);
    int ymax = GetSystemMetrics(SM_CYSCREEN);
 
    if (rc.left < 0)
        rc.left = 0;
    else if (rc.right > xmax)
        if ((rc.left-=rc.right-xmax) < 0)
            rc.left = 0;
 
    if (rc.top < 0)
        rc.top = 0;
    else if (rc.bottom > ymax)
        if ((rc.top-=rc.bottom-ymax) < 0)
            rc.top = 0;
 
    if (rc.left!=left || rc.top!=top)
        SetWindowPos(hwnd, 0, rc.left,rc.top, 0,0, SWP_NOZORDER|SWP_NOSIZE|SWP_NOACTIVATE);
}
 
 
void display_error(HWND hwnd, DWORD error)  //@@ CONTEXT mit ausgeben -> display_error(HWND hwnd, const Exception& e)
{
    PTSTR msg;
 
    if (FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_FROM_SYSTEM,
        0, error, MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT), (PTSTR)&msg, 0, NULL)) {
        LOG(FmtString(TEXT("display_error(%#x): %s"), error, msg));
 
        SetLastError(0);
        MessageBox(hwnd, msg, TEXT("ROS Explorer"), MB_OK);
 
        if (GetLastError() == ERROR_INVALID_WINDOW_HANDLE)
            MessageBox(0, msg, TEXT("ROS Explorer"), MB_OK);
    } else {
        LOG(FmtString(TEXT("Unknown Error %#x"), error));
 
        FmtString msg(TEXT("Unknown Error %#x"), error);
 
        SetLastError(0);
        MessageBox(hwnd, msg, TEXT("ROS Explorer"), MB_OK);
 
        if (GetLastError() == ERROR_INVALID_WINDOW_HANDLE)
            MessageBox(0, msg, TEXT("ROS Explorer"), MB_OK);
    }
 
    LocalFree(msg);
}
 
 
Context Context::s_main("-NO-CONTEXT-");
Context* Context::s_current = &Context::s_main;
 
String Context::toString() const
{
    String str = _ctx;
 
    if (!_obj.empty())
        str.appendf(TEXT("\nObject: %s"), (LPCTSTR)_obj);
 
    return str;
}
 
String Context::getStackTrace() const
{
    ostringstream str;
 
    str << "Context Trace:\n";
 
    for(const Context*p=this; p && p!=&s_main; p=p->_last) {
        str << "- " << p->_ctx;
 
        if (!p->_obj.empty())
            str << " obj=" << ANS(p->_obj);
 
        str << '\n';
    }
 
    return str.str();
}
 
 
BOOL time_to_filetime(const time_t* t, FILETIME* ftime)
{
#if defined(__STDC_WANT_SECURE_LIB__) && defined(_MS_VER)
    SYSTEMTIME stime;
    struct tm tm_;
    struct tm* tm = &tm_;
 
    if (gmtime_s(tm, t) != 0)
        return FALSE;
#else
    struct tm* tm = gmtime(t);
    SYSTEMTIME stime;
 
    if (!tm)
        return FALSE;
#endif
 
    stime.wYear = tm->tm_year+1900;
    stime.wMonth = tm->tm_mon+1;
    stime.wDayOfWeek = (WORD)-1;
    stime.wDay = tm->tm_mday;
    stime.wHour = tm->tm_hour;
    stime.wMinute = tm->tm_min;
    stime.wSecond = tm->tm_sec;
    stime.wMilliseconds = 0;
 
    return SystemTimeToFileTime(&stime, ftime);
}
 
 
BOOL launch_file(HWND hwnd, LPCTSTR cmd, UINT nCmdShow, LPCTSTR parameters)
{
    CONTEXT("launch_file()");
 
    HINSTANCE hinst = ShellExecute(hwnd, NULL/*operation*/, cmd, parameters, NULL/*dir*/, nCmdShow);
 
    if ((INT_PTR)hinst <= 32) {
        display_error(hwnd, GetLastError());
        return FALSE;
    }
 
    return TRUE;
}
 
#ifdef UNICODE
BOOL launch_fileA(HWND hwnd, LPSTR cmd, UINT nCmdShow, LPCSTR parameters)
{
    HINSTANCE hinst = ShellExecuteA(hwnd, NULL/*operation*/, cmd, parameters, NULL/*dir*/, nCmdShow);
 
    if ((INT_PTR)hinst <= 32) {
        display_error(hwnd, GetLastError());
        return FALSE;
    }
 
    return TRUE;
}
#endif
 
 
/* search for already running instance */
 
static int g_foundPrevInstance = 0;
 
static BOOL CALLBACK EnumWndProc(HWND hwnd, LPARAM lparam)
{
    TCHAR cls[128];
 
    GetClassName(hwnd, cls, 128);
 
    if (!lstrcmp(cls, (LPCTSTR)lparam)) {
        g_foundPrevInstance++;
        return FALSE;
    }
 
    return TRUE;
}
 
/* search for window of given class name to allow only one running instance */
int find_window_class(LPCTSTR classname)
{
    EnumWindows(EnumWndProc, (LPARAM)classname);
 
    if (g_foundPrevInstance)
        return 1;
 
    return 0;
}
 
 
String get_windows_version_str()
{
    OSVERSIONINFOEX osvi = {sizeof(OSVERSIONINFOEX)};
    BOOL osvie_val;
    String str;
 
    if (!(osvie_val = GetVersionEx((OSVERSIONINFO*)&osvi))) {
        osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
 
        if (!GetVersionEx((OSVERSIONINFO*)&osvi))
            return TEXT("???");
    }
 
    switch(osvi.dwPlatformId) {
      case VER_PLATFORM_WIN32_NT:
#ifdef __REACTOS__  // This work around can be removed if ReactOS gets a unique version number.
        str = TEXT("ReactOS");
#else
        if (osvi.dwMajorVersion <= 4)
            str = TEXT("Microsoft Windows NT");
        else if (osvi.dwMajorVersion==5 && osvi.dwMinorVersion==0)
            str = TEXT("Microsoft Windows 2000");
        else if (osvi.dwMajorVersion==5 && osvi.dwMinorVersion==1)
            str = TEXT("Microsoft Windows XP");
#endif
 
        if (osvie_val) {
            if (osvi.wProductType == VER_NT_WORKSTATION) {
               if (osvi.wSuiteMask & VER_SUITE_PERSONAL)
                  str += TEXT(" Personal");
               else
                  str += TEXT(" Professional");
            } else if (osvi.wProductType == VER_NT_SERVER) {
               if (osvi.wSuiteMask & VER_SUITE_DATACENTER)
                  str += TEXT(" DataCenter Server");
               else if (osvi.wSuiteMask & VER_SUITE_ENTERPRISE)
                  str += TEXT(" Advanced Server");
               else
                  str += TEXT(" Server");
            } else if (osvi.wProductType == VER_NT_DOMAIN_CONTROLLER) {
                str += TEXT(" Domain Controller");
            }
        } else {
            TCHAR type[80];
            DWORD dwBufLen;
            HKEY hkey;
 
            if (!RegOpenKeyEx(HKEY_LOCAL_MACHINE, TEXT("SYSTEM\\CurrentControlSet\\Control\\ProductOptions"), 0, KEY_QUERY_VALUE, &hkey)) {
                RegQueryValueEx(hkey, TEXT("ProductType"), NULL, NULL, (LPBYTE)type, &dwBufLen);
                RegCloseKey(hkey);
 
                if (!_tcsicmp(TEXT("WINNT"), type))
                   str += TEXT(" Workstation");
                else if (!_tcsicmp(TEXT("LANMANNT"), type))
                   str += TEXT(" Server");
                else if (!_tcsicmp(TEXT("SERVERNT"), type))
                    str += TEXT(" Advanced Server");
            }
        }
        break;
 
      case VER_PLATFORM_WIN32_WINDOWS:
        if (osvi.dwMajorVersion>4 ||
            (osvi.dwMajorVersion==4 && osvi.dwMinorVersion>0)) {
            if (osvi.dwMinorVersion == 90)
                str = TEXT("Microsoft Windows ME");
            else
                str = TEXT("Microsoft Windows 98");
 
            if (osvi.szCSDVersion[1] == 'A')
                str += TEXT(" SE");
        } else {
            str = TEXT("Microsoft Windows 95");
 
            if (osvi.szCSDVersion[1]=='B' || osvi.szCSDVersion[1]=='C')
                str += TEXT(" OSR2");
        }
        break;
 
      case VER_PLATFORM_WIN32s:
        str = TEXT("Microsoft Win32s");
 
      default:
        return TEXT("???");
    }
 
    String vstr;
 
    if (osvi.dwMajorVersion <= 4)
        vstr.printf(TEXT(" Version %d.%d %s Build %d"),
                        osvi.dwMajorVersion, osvi.dwMinorVersion,
                        osvi.szCSDVersion, osvi.dwBuildNumber&0xFFFF);
    else
        vstr.printf(TEXT(" %s (Build %d)"), osvi.szCSDVersion, osvi.dwBuildNumber&0xFFFF);
 
    return str + vstr;
}
 
 
typedef void (WINAPI*RUNDLLPROC)(HWND hwnd, HINSTANCE hinst, LPCTSTR cmdline, DWORD nCmdShow);
 
BOOL RunDLL(HWND hwnd, LPCTSTR dllname, LPCSTR procname, LPCTSTR cmdline, UINT nCmdShow)
{
    HMODULE hmod = LoadLibrary(dllname);
    if (!hmod)
        return FALSE;
 
/*TODO
    <Windows NT/2000>
    It is possible to create a Unicode version of the function.
    Rundll32 first tries to find a function named EntryPointW.
    If it cannot find this function, it tries EntryPointA, then EntryPoint.
    To create a DLL that supports ANSI on Windows 95/98/Me and Unicode otherwise,
    export two functions: EntryPointW and EntryPoint.
*/
    RUNDLLPROC proc = (RUNDLLPROC)GetProcAddress(hmod, procname);
    if (!proc) {
        FreeLibrary(hmod);
        return FALSE;
    }
 
    proc(hwnd, hmod, cmdline, nCmdShow);
 
    FreeLibrary(hmod);
 
    return TRUE;
}
 
 
#ifdef UNICODE
#define CONTROL_RUNDLL "Control_RunDLLW"
#else
#define CONTROL_RUNDLL "Control_RunDLLA"
#endif
 
BOOL launch_cpanel(HWND hwnd, LPCTSTR applet)
{
    TCHAR parameters[MAX_PATH];
    
    _tcscpy(parameters, TEXT("shell32.dll,Control_RunDLL "));
    _tcscat(parameters, applet);
 
    return ((INT_PTR)ShellExecute(hwnd, TEXT("open"), TEXT("rundll32.exe"), parameters, NULL, SW_SHOWDEFAULT) > 32);
}
 
 
BOOL RecursiveCreateDirectory(LPCTSTR path_in)
{
    TCHAR path[MAX_PATH], hole_path[MAX_PATH];
 
    _tcscpy(hole_path, path_in);
 
    int drv_len = 0;
    LPCTSTR d;
 
    for(d=hole_path; *d && *d!='/' && *d!='\\'; ++d) {
        ++drv_len;
 
        if (*d == ':')
            break;
    }
 
    LPTSTR dir = hole_path + drv_len;
 
    int l;
    LPTSTR p = hole_path + (l=_tcslen(hole_path));
 
    while(--p>=hole_path && (*p=='/' || *p=='\\'))
        *p = '\0';
 
    WIN32_FIND_DATA w32fd;
 
    HANDLE hFind = FindFirstFile(hole_path, &w32fd);
 
    if (hFind == INVALID_HANDLE_VALUE) {
        _tcsncpy(path, hole_path, drv_len);
        int i = drv_len;
 
        for(p=dir; *p=='/'||*p=='\\'; p++)
            path[i++] = *p++;
 
        for(; i<l; i++) {
            memcpy(path, hole_path, i*sizeof(TCHAR));
 
            for(; hole_path[i] && hole_path[i]!='/' && hole_path[i]!='\\'; i++)
                path[i] = hole_path[i];
 
            path[i] = '\0';
 
            hFind = FindFirstFile(path, &w32fd);
 
            if (hFind != INVALID_HANDLE_VALUE)
                FindClose(hFind);
            else {
                LOG(FmtString(TEXT("CreateDirectory(\"%s\")"), path));
 
                if (!CreateDirectory(path, 0))
                    return FALSE;
            }
        }
    } else
        FindClose(hFind);
 
    return TRUE;
}
 
 
DWORD RegGetDWORDValue(HKEY root, LPCTSTR path, LPCTSTR valueName, DWORD def)
{
    HKEY hkey;
    DWORD ret;
 
    if (!RegOpenKey(root, path, &hkey)) {
        DWORD len = sizeof(ret);
 
        if (RegQueryValueEx(hkey, valueName, 0, NULL, (LPBYTE)&ret, &len))
            ret = def;
 
        RegCloseKey(hkey);
 
        return ret;
    } else
        return def;
}
 
 
BOOL RegSetDWORDValue(HKEY root, LPCTSTR path, LPCTSTR valueName, DWORD value)
{
    HKEY hkey;
    BOOL ret = FALSE;
 
    if (!RegOpenKey(root, path, &hkey)) {
        ret = RegSetValueEx(hkey, valueName, 0, REG_DWORD, (LPBYTE)&value, sizeof(value));
 
        RegCloseKey(hkey);
    }
 
    return ret;
}
 
 
BOOL exists_path(LPCTSTR path)
{
    WIN32_FIND_DATA fd;
 
    HANDLE hfind = FindFirstFile(path, &fd);
 
    if (hfind != INVALID_HANDLE_VALUE) {
        FindClose(hfind);
 
        return TRUE;
    } else
        return FALSE;
}
 
 
bool SplitFileSysURL(LPCTSTR url, String& dir_out, String& fname_out)
{
    if (!_tcsnicmp(url, TEXT("file://"), 7)) {
        url += 7;
 
         // remove third slash in front of drive characters
        if (*url == '/')
            ++url;
    }
 
    if (exists_path(url)) {
        TCHAR path[_MAX_PATH];
 
         // convert slashes to back slashes
        GetFullPathName(url, COUNTOF(path), path, NULL);
 
        if (GetFileAttributes(path) & FILE_ATTRIBUTE_DIRECTORY)
            fname_out.erase();
        else {
            TCHAR drv[_MAX_DRIVE], dir[_MAX_DIR], fname[_MAX_FNAME], ext[_MAX_EXT];
 
            _tsplitpath_s(path, drv, COUNTOF(drv), dir, COUNTOF(dir), fname, COUNTOF(fname), ext, COUNTOF(ext));
            _stprintf(path, TEXT("%s%s"), drv, dir);
 
            fname_out.printf(TEXT("%s%s"), fname, ext);
        }
 
        dir_out = path;
 
        return true;
    } else
        return false;
}