IDirectInputDevice8A

#define global IID_IDirectInputDevice8A "{54D41080-DC15-4833-A41B-748F73A38179}"
#usecom global IDirectInputDevice8A IID_IDirectInputDevice8A "{}"
#comfunc global IDirectInputDevice8A_GetCapabilities           3 var
#comfunc global IDirectInputDevice8A_EnumObjects               4 sptr,sptr,int
#comfunc global IDirectInputDevice8A_GetProperty               5 var,var
#comfunc global IDirectInputDevice8A_SetProperty               6 var,var
#comfunc global IDirectInputDevice8A_Acquire                   7
#comfunc global IDirectInputDevice8A_Unacquire                 8
#comfunc global IDirectInputDevice8A_GetDeviceState            9 int,sptr
#comfunc global IDirectInputDevice8A_GetDeviceData             10 int,var,var,int
#comfunc global IDirectInputDevice8A_SetDataFormat             11 var
#comfunc global IDirectInputDevice8A_SetEventNotification      12 sptr
#comfunc global IDirectInputDevice8A_SetCooperativeLevel       13 sptr,int
#comfunc global IDirectInputDevice8A_GetObjectInfo             14 var,int,int
#comfunc global IDirectInputDevice8A_GetDeviceInfo             15 var
#comfunc global IDirectInputDevice8A_RunControlPanel           16 sptr,int
#comfunc global IDirectInputDevice8A_Initialize                17 sptr,int,var
#comfunc global IDirectInputDevice8A_CreateEffect              18 var,var,sptr,sptr
#comfunc global IDirectInputDevice8A_EnumEffects               19 sptr,sptr,int
#comfunc global IDirectInputDevice8A_GetEffectInfo             20 var,var
#comfunc global IDirectInputDevice8A_GetForceFeedbackState     21 var
#comfunc global IDirectInputDevice8A_SendForceFeedbackCommand  22 int
#comfunc global IDirectInputDevice8A_EnumCreatedEffectObjects  23 sptr,sptr,int
#comfunc global IDirectInputDevice8A_Escape                    24 var
#comfunc global IDirectInputDevice8A_Poll                      25
#comfunc global IDirectInputDevice8A_SendDeviceData            26 int,var,var,int
#comfunc global IDirectInputDevice8A_EnumEffectsInFile         27 str,sptr,sptr,int
#comfunc global IDirectInputDevice8A_WriteEffectToFile         28 str,int,var,int
#comfunc global IDirectInputDevice8A_BuildActionMap            29 var,str,int
#comfunc global IDirectInputDevice8A_SetActionMap              30 var,str,int
#comfunc global IDirectInputDevice8A_GetImageInfo              31 var
; ※数字は vtbl インデックス(0始まり)。0/1/2 は IUnknown(QueryInterface/AddRef/Release)。
; ※このインターフェースは直接 CoCreateInstance するクラスIDが無いため "{}"(他メソッド/アクティベーションで取得)。
; ※出力/バッファ引数は var(変数直渡し)。varptr 方式にも切替可。
; ※ハンドル/void*等の不透明ポインタは IronHSP では intptr 指定が可能。