utils.cpp: needs to initialize returned variant for delphi when querying for ambient properties

This commit is contained in:
Damien Fouilleul 2005-11-14 15:31:39 +00:00
parent b37103aa25
commit b8cdc61abd
1 changed files with 1 additions and 0 deletions

View File

@ -82,6 +82,7 @@ HRESULT GetObjectProperty(LPUNKNOWN object, DISPID dispID, VARIANT& v)
{
DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
VARIANT vres;
VariantInit(&vres);
hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET, &dispparamsNoArgs, &vres, NULL, NULL);
if( SUCCEEDED(hr) )