389 lines
9.7 KiB
C++
389 lines
9.7 KiB
C++
//+-------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
//
|
|
// Copyright (C) Microsoft Corporation, 1998 - 1999
|
|
//
|
|
// File: irprops.cpp
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
// irprops.cpp : Defines the initialization routines for the DLL.
|
|
//
|
|
|
|
#include "precomp.hxx"
|
|
#include "irprops.h"
|
|
#include "irpropsheet.h"
|
|
#include "debug.h"
|
|
|
|
|
|
BOOL InitInstance();
|
|
INT ExitInstance();
|
|
BOOL IsFirstInstance();
|
|
INT_PTR WINAPI DoPropertiesA(HWND hwnd, LPCSTR CmdLine);
|
|
INT_PTR WINAPI DoPropertiesW(HWND hwnd, LPCWSTR CmdLine);
|
|
|
|
|
|
HINSTANCE gHInst;
|
|
|
|
//
|
|
// This records the current active property sheet window handle created
|
|
// by this instance. It is set/reset by CIrPropSheet object.
|
|
//
|
|
HWND g_hwndPropSheet = NULL;
|
|
HANDLE g_hMutex = NULL;
|
|
BOOL g_bFirstInstance = TRUE;
|
|
|
|
//
|
|
// This records our registered message for inter-instances communications
|
|
// The message is registered in CIrpropsApp::InitInstance.
|
|
//
|
|
UINT g_uIPMsg;
|
|
|
|
#ifdef _DEBUG
|
|
#define new DEBUG_NEW
|
|
#undef THIS_FILE
|
|
static char THIS_FILE[] = __FILE__;
|
|
#endif
|
|
|
|
|
|
extern "C" {
|
|
|
|
BOOL APIENTRY
|
|
DllMain(HANDLE hDll,
|
|
DWORD dwReason,
|
|
LPVOID lpReserved)
|
|
{
|
|
IRINFO((_T("DllMain reason %x"), dwReason));
|
|
switch (dwReason) {
|
|
case DLL_PROCESS_ATTACH:
|
|
gHInst = (HINSTANCE) hDll;
|
|
return InitInstance();
|
|
break;
|
|
|
|
case DLL_PROCESS_DETACH:
|
|
return ExitInstance();
|
|
break;
|
|
|
|
case DLL_THREAD_DETACH:
|
|
break;
|
|
|
|
case DLL_THREAD_ATTACH:
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
}
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
//some globals
|
|
|
|
APPLETS IRApplet[NUM_APPLETS] = {
|
|
{IDI_IRPROPS, IDS_APPLETNAME, IDS_APPLETDESC}
|
|
};
|
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////
|
|
// CPlApplet function for the control panel
|
|
//
|
|
LONG CALLBACK CPlApplet(
|
|
HWND hwndCPL,
|
|
UINT uMsg,
|
|
LPARAM lParam1,
|
|
LPARAM lParam2)
|
|
{
|
|
int i;
|
|
LPCPLINFO lpCPlInfo;
|
|
|
|
i = (int) lParam1;
|
|
|
|
IRINFO((_T("CplApplet message %x"), uMsg));
|
|
switch (uMsg)
|
|
{
|
|
case CPL_INIT: // first message, sent once
|
|
if (!IrPropSheet::IsIrDASupported()) {
|
|
HPSXA hpsxa;
|
|
//
|
|
// Check for any installed extensions.
|
|
//
|
|
hpsxa = SHCreatePropSheetExtArray(HKEY_LOCAL_MACHINE, sc_szRegWireless, 8);
|
|
if (hpsxa) {
|
|
//
|
|
// We have extensions installed so we have to show the CPL,
|
|
// whether IRDA exists or not.
|
|
//
|
|
SHDestroyPropSheetExtArray(hpsxa);
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
case CPL_GETCOUNT: // second message, sent once
|
|
return NUM_APPLETS;
|
|
break;
|
|
case CPL_INQUIRE: // third message, sent once per application
|
|
lpCPlInfo = (LPCPLINFO) lParam2;
|
|
lpCPlInfo->lData = 0;
|
|
lpCPlInfo->idIcon = IRApplet[i].icon;
|
|
lpCPlInfo->idName = IRApplet[i].namestring;
|
|
lpCPlInfo->idInfo = IRApplet[i].descstring;
|
|
break;
|
|
|
|
case CPL_STARTWPARMSA:
|
|
if (-1 == DoPropertiesA(hwndCPL, (LPCSTR)lParam2))
|
|
MsgBoxWinError(hwndCPL);
|
|
// return true so that we won't get CPL_DBLCLK.
|
|
return 1;
|
|
break;
|
|
case CPL_STARTWPARMSW:
|
|
if (-1 == DoPropertiesW(hwndCPL, (LPCWSTR)lParam2))
|
|
MsgBoxWinError(hwndCPL);
|
|
// return true so that we won't get CPL_DBLCLK.
|
|
return 1;
|
|
break;
|
|
case CPL_DBLCLK: // application icon double-clicked
|
|
if (-1 == DoPropertiesA(hwndCPL, (LPCSTR)lParam2))
|
|
MsgBoxWinError(hwndCPL);
|
|
return 1;
|
|
break;
|
|
case CPL_STOP: // sent once per application before CPL_EXIT
|
|
break;
|
|
case CPL_EXIT: // sent once before FreeLibrary is called
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
//
|
|
// This function presents the Wireless link property sheet.
|
|
// INPUT:
|
|
// hwndParent -- window handle to be used as parent window of
|
|
// the property sheet
|
|
// lpCmdLine -- optional command line
|
|
// 'n" (n in decimal) is start page number(zero-based).
|
|
// OUTPUT:
|
|
// Return value of PropertySheet API
|
|
INT_PTR
|
|
DoPropertiesW(
|
|
HWND hwndParent,
|
|
LPCWSTR lpCmdLine
|
|
)
|
|
{
|
|
INT_PTR Result;
|
|
INT StartPage;
|
|
|
|
IRINFO((_T("DoPropertiesW")));
|
|
//
|
|
// Assuming no start page was specified.
|
|
//
|
|
StartPage = -1;
|
|
//
|
|
// Command line specifies start page number
|
|
//
|
|
if (lpCmdLine)
|
|
{
|
|
// skip white chars
|
|
while (_T('\0') != *lpCmdLine &&
|
|
(_T(' ') == *lpCmdLine || _T('\t') == *lpCmdLine))
|
|
{
|
|
lpCmdLine++;
|
|
}
|
|
if (_T('0') <= *lpCmdLine && _T('9') >= *lpCmdLine)
|
|
{
|
|
StartPage = 0;
|
|
do
|
|
{
|
|
StartPage = StartPage * 10 + *lpCmdLine - _T('0');
|
|
lpCmdLine++;
|
|
} while (_T('0') <= *lpCmdLine && _T('9') >= *lpCmdLine);
|
|
}
|
|
}
|
|
if (!IsFirstInstance() || NULL != g_hwndPropSheet)
|
|
{
|
|
IRINFO((_T("Not the first instance")));
|
|
HWND hwndPropSheet = HWND_DESKTOP;
|
|
if (NULL == g_hwndPropSheet)
|
|
{
|
|
IRINFO((_T("No window created")));
|
|
//
|
|
// We are not the first instance. Look for the property sheet
|
|
// window created by the first instance.
|
|
//
|
|
EnumWindows(EnumWinProc, (LPARAM)&hwndPropSheet);
|
|
}
|
|
else
|
|
{
|
|
IRINFO((_T("Window active")));
|
|
//
|
|
// This is not the first call and we have a
|
|
// property sheet active(same process, multiple calls)
|
|
//
|
|
hwndPropSheet = g_hwndPropSheet;
|
|
}
|
|
if (HWND_DESKTOP != hwndPropSheet)
|
|
{
|
|
IRINFO((_T("Found the active property sheet.")));
|
|
//
|
|
// We found the active property sheet
|
|
//
|
|
// Select the new active page if necessary
|
|
//
|
|
if (-1 != StartPage)
|
|
PropSheet_SetCurSel(hwndPropSheet, NULL, StartPage);
|
|
|
|
//
|
|
// bring the property sheet to the foreground.
|
|
//
|
|
::SetForegroundWindow(hwndPropSheet);
|
|
}
|
|
Result = IDCANCEL;
|
|
}
|
|
else
|
|
{
|
|
IRINFO((_T("First instance, creating propertysheet")));
|
|
IrPropSheet PropSheet(gHInst, IDS_APPLETNAME, hwndParent, StartPage);
|
|
}
|
|
return Result;
|
|
}
|
|
|
|
//
|
|
// This is our callback function for EnumWindows API.
|
|
// It probes for each window handle to see if it is the property sheet
|
|
// window created by the previous instance. If it is, it returns
|
|
// the window handle in the provided buffer, lParam)
|
|
// Input:
|
|
// hWnd -- the window handle
|
|
// lParam -- (HWND *)
|
|
// Output:
|
|
// TRUE -- Let Windows continue to call us
|
|
// FALSE -- Stop Windows from calling us again
|
|
//
|
|
BOOL
|
|
CALLBACK
|
|
EnumWinProc(
|
|
HWND hWnd,
|
|
LPARAM lParam
|
|
)
|
|
{
|
|
//
|
|
// Verify with this window to see if it is the one we are looking for.
|
|
//
|
|
LRESULT lr;
|
|
lr = ::SendMessage(hWnd, g_uIPMsg, (WPARAM)IPMSG_SIGNATURECHECK,
|
|
(LPARAM)IPMSG_REQUESTSIGNATURE);
|
|
if (IPMSG_REPLYSIGNATURE == lr)
|
|
{
|
|
if (lParam)
|
|
{
|
|
// this is the one
|
|
*((HWND *)(lParam)) = hWnd;
|
|
}
|
|
//
|
|
// We are done with enumeration.
|
|
//
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
INT_PTR
|
|
DoPropertiesA(
|
|
HWND hwndParent,
|
|
LPCSTR lpCmdLine
|
|
)
|
|
{
|
|
WCHAR CmdLineW[MAX_PATH];
|
|
UINT Size;
|
|
if (!lpCmdLine)
|
|
return DoPropertiesW(hwndParent, NULL);
|
|
MultiByteToWideChar(CP_ACP, 0, lpCmdLine, -1, CmdLineW, sizeof(CmdLineW) / sizeof(WCHAR));
|
|
return DoPropertiesW(hwndParent, CmdLineW);
|
|
}
|
|
|
|
|
|
// This function creates and displays a message box for the given
|
|
// win32 error(or last error)
|
|
// INPUT:
|
|
// hwndParent -- the parent window for the will-be-created message box
|
|
// Type -- message styles(MB_xxxx)
|
|
// Error -- Error code. If the value is 0
|
|
// GetLastError() will be called to retreive the
|
|
// real error code.
|
|
// CaptionId -- optional string id for caption
|
|
// OUTPUT:
|
|
// the value return from MessageBox
|
|
//
|
|
int
|
|
MsgBoxWinError(
|
|
HWND hwndParent,
|
|
DWORD Options,
|
|
DWORD Error,
|
|
int CaptionId
|
|
)
|
|
{
|
|
if (ERROR_SUCCESS == Error)
|
|
Error = GetLastError();
|
|
|
|
// nonsense to report success!
|
|
if (ERROR_SUCCESS == Error)
|
|
return IDOK;
|
|
|
|
TCHAR szMsg[MAX_PATH];
|
|
TCHAR szCaption[MAX_PATH];
|
|
|
|
if (!CaptionId)
|
|
CaptionId = IDS_APPLETNAME;
|
|
::LoadString(gHInst, CaptionId, szCaption, sizeof(szCaption) / sizeof(TCHAR));
|
|
FormatMessage(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM,
|
|
NULL, Error, MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),
|
|
szMsg, sizeof(szMsg) / sizeof(TCHAR), NULL);
|
|
return MessageBox(hwndParent, szMsg, szCaption, Options);
|
|
}
|
|
|
|
BOOL InitInstance()
|
|
{
|
|
//
|
|
// Try to create a named mutex. This give us a clue
|
|
// if we are the first instance. We will not close
|
|
// the mutex until exit.
|
|
//
|
|
g_hMutex = CreateMutex(NULL, TRUE, SINGLE_INST_MUTEX);
|
|
if (g_hMutex)
|
|
{
|
|
g_bFirstInstance = ERROR_ALREADY_EXISTS != GetLastError();
|
|
//
|
|
// register a message for inter-instances communication
|
|
//
|
|
g_uIPMsg = RegisterWindowMessage(WIRELESSLINK_INTERPROCESSMSG);
|
|
SHFusionInitializeFromModuleID(gHInst, 124);
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
BOOL ExitInstance()
|
|
{
|
|
if (g_hMutex)
|
|
{
|
|
CloseHandle(g_hMutex);
|
|
g_hMutex = NULL;
|
|
}
|
|
SHFusionUninitialize();
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL IsFirstInstance()
|
|
{
|
|
return g_bFirstInstance;
|
|
}
|
|
|
|
|