inc: winapi: Re-add REFIID & co

These types are documented on MSDN so they shouldn't be dropped.

In the MS and in the MinGW-w64 headers they are #defines (not typedefs)
and have 2 CONSTs, so I have translated them that way for FB too.
But this doesn't match the typedefs shown in the MSDN documentation,
so I'm not 100% sure what the best solution is.

(cherry picked from commit b5ce750)

Author: dkl

changelog.txt

@@ -8,6 +8,7 @@ Version 1.02.1
 [fixed]
 - 1.02.0 regression: win/winuser.bi: Renamed INPUT typedef to INPUT_ to avoid conflicts with the quirk keyword (due to bug #730)
 - 1.02.0 regression: OpenGL binding: glGetString() and some others use ZString Ptr instead of GLubyte Ptr again
+- 1.02.0 regression: Windows API binding: REFIID and some other REF* types were missing
 
 
 Version 1.02.0

inc/win/guiddef.bi

@@ -31,6 +31,14 @@ type FMTID as GUID
 type LPFMTID as FMTID ptr
 #define FMTID_NULL GUID_NULL
 #define IsEqualFMTID(rfmtid1, rfmtid2) IsEqualGUID(rfmtid1, rfmtid2)
+#define _REFGUID_DEFINED
+type REFGUID as const GUID const ptr
+#define _REFIID_DEFINED
+type REFIID as const IID const ptr
+#define _REFCLSID_DEFINED
+type REFCLSID as const IID const ptr
+#define _REFFMTID_DEFINED
+type REFFMTID as const IID const ptr
 #define _SYS_GUID_OPERATORS_
 #define InlineIsEqualGUID(rguid1, rguid2) (((((@(rguid1)->Data1)[0] = (@(rguid2)->Data1)[0]) andalso ((@(rguid1)->Data1)[1] = (@(rguid2)->Data1)[1])) andalso ((@(rguid1)->Data1)[2] = (@(rguid2)->Data1)[2])) andalso ((@(rguid1)->Data1)[3] = (@(rguid2)->Data1)[3]))
 #define IsEqualGUID(rguid1, rguid2) (memcmp(rguid1, rguid2, sizeof(GUID)) = 0)

inc/win/oaidl.bi

@@ -243,6 +243,7 @@ type LPVARIANT as VARIANT ptr
 type VARIANTARG as VARIANT
 type LPVARIANTARG as VARIANT ptr
 #define _REFVARIANT_DEFINED
+type REFVARIANT as const VARIANT const ptr
 
 type _wireBRECORD
 	fFlags as ULONG

inc/win/propidl.bi

@@ -282,6 +282,7 @@ end type
 
 type LPPROPVARIANT as tagPROPVARIANT ptr
 #define _REFPROPVARIANT_DEFINED
+type REFPROPVARIANT as const PROPVARIANT const ptr
 const PID_DICTIONARY = &h0
 const PID_CODEPAGE = &h1
 const PID_FIRST_USABLE = &h2

inc/win/propkeydef.bi

@@ -2,5 +2,6 @@
 
 #pragma once
 
+type REFPROPERTYKEY as const PROPERTYKEY const ptr
 #define IsEqualPropertyKey(a, b) (((a).pid = (b).pid) andalso IsEqualIID(@(a).fmtid, @(b).fmtid))
 #define _PROPERTYKEY_EQUALITY_OPERATORS_

inc/win/shobjidl.bi

@@ -7179,6 +7179,7 @@ type IContextMenuCB as IContextMenuCB_
 	declare sub IBandHost_DestroyBand_Stub(byval This as IRpcStubBuffer ptr, byval pRpcChannelBuffer as IRpcChannelBuffer ptr, byval pRpcMessage as PRPC_MESSAGE, byval pdwStubPhase as DWORD ptr)
 	#define SID_SBandHost IID_IBandHost
 	type EXPLORERPANE as GUID
+	type REFEXPLORERPANE as const EXPLORERPANE const ptr
 	#define __IExplorerPaneVisibility_INTERFACE_DEFINED__
 
 	type _EXPLORERPANESTATE as long

inc/win/shtypes.bi

@@ -118,10 +118,14 @@ end type
 
 type COMDLG_FILTERSPEC as _COMDLG_FILTERSPEC
 type KNOWNFOLDERID as GUID
+type REFKNOWNFOLDERID as const KNOWNFOLDERID const ptr
 type KF_REDIRECT_FLAGS as DWORD
 type FOLDERTYPEID as GUID
+type REFFOLDERTYPEID as const FOLDERTYPEID const ptr
 type TASKOWNERID as GUID
+type REFTASKOWNERID as const TASKOWNERID const ptr
 type ELEMENTID as GUID
+type REFELEMENTID as const ELEMENTID const ptr
 
 type tagSHCOLSTATE as long
 enum