' ########################################################################################
' Microsoft Windows
' File: regbag.inc
' Copyright (c) 2011 Jos? Roca
' Portions Copyright (c) Microsoft Corporation.
' All Rights Reserved.
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
' EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF
' MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ########################################################################################
#IF NOT %DEF(PBX_regbag_PBI)
#DEFINE PBX_regbag_PBI
%EQUATE `REGBAG_INC = 1
'/* header files for imported files */
#INCLUDE ONCE "Legacy/COM/ObjIdl.inc"
#INCLUDE ONCE "Legacy/COM/OAIdl.inc"
#INCLUDE ONCE "Legacy/COM/OCIdl.inc"
' ########################################################################################
' Interface name = ICreatePropBagOnRegKey
' IID = 8A674B48-1F63-11D3-B64C-00C04F79498E
' Inherited interface = IUnknown
' ########################################################################################
#IF NOT %DEF(%ICreatePropBagOnRegKey_INTERFACE_DEFINED)
 %ICreatePropBagOnRegKey_INTERFACE_DEFINED = 1
$IID_ICreatePropBagOnRegKey = GUID$("{8A674B48-1F63-11D3-B64C-00C04F79498E}")
INTERFACE ICreatePropBagOnRegKey $IID_ICreatePropBagOnRegKey
 INHERIT IUnknown
 ' =====================================================================================
 METHOD Create ( ' VTable offset = 12
 BYVAL hkey AS DWORD
 , BYREF subkey AS WSTRINGZ
 , BYVAL ulOptions AS DWORD
 , BYVAL samDesired AS DWORD
 , BYREF iid AS GUID
 , BYREF ppBag AS IUnknown
 ) AS LONG
 ' =====================================================================================
END INTERFACE
#ENDIF ' #IF NOT %DEF(%ICreatePropBagOnRegKey_INTERFACE_DEFINED)
#ENDIF
