blob: 445c2e5df12f3fc7e50a762aa18e2436bcb2537c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#include "stdafx.h"
namespace External
{
HRESULT db_get(DISPPARAMS *pDispParams, VARIANT *pVarResult)
{
if (pDispParams->cArgs < 3)
return TYPE_E_OUTOFBOUNDS;
if (!pDispParams || !pVarResult)
return S_OK;
MCONTACT hContact = pDispParams->rgvarg[2].vt == VT_INT ? pDispParams->rgvarg[2].intVal : NULL;
BSTR szModule = pDispParams->rgvarg[1].vt == VT_BSTR ? pDispParams->rgvarg[1].bstrVal : NULL;
BSTR szSetting = pDispParams->rgvarg[0].vt == VT_BSTR ? pDispParams->rgvarg[0].bstrVal : NULL;
DBVARIANT dbv = { 0 };
db_get(hContact, _T2A((TCHAR*)szModule), _T2A((TCHAR*)szSetting), &dbv);
switch (dbv.type)
{
case DBVT_BYTE:
pVarResult->bVal = dbv.bVal;
pVarResult->vt = VT_BOOL;
break;
case DBVT_WCHAR:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(dbv.pwszVal);
break;
case DBVT_UTF8:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(ptrW(mir_utf8decodeW(dbv.pszVal)));
break;
case DBVT_ASCIIZ:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(_A2T(dbv.pszVal));
break;
case DBVT_DWORD:
pVarResult->vt = VT_INT;
pVarResult->intVal = dbv.dVal;
}
return S_OK;
}
HRESULT win32_ShellExecute(DISPPARAMS *pDispParams, VARIANT *pVarResult)
{
if (pDispParams->cArgs < 5 || pDispParams == nullptr)
return E_INVALIDARG;
HINSTANCE res = ShellExecuteW(NULL, pDispParams->rgvarg[4].bstrVal, pDispParams->rgvarg[3].bstrVal, pDispParams->rgvarg[2].bstrVal, pDispParams->rgvarg[1].bstrVal, pDispParams->rgvarg[0].intVal);
if (pVarResult != nullptr)
{
pVarResult->vt = VT_HANDLE;
pVarResult->ullVal = (ULONGLONG)res;
}
return S_OK;
}
}
|
