Hello,
I have modify the coinvoke macro,in the masm32 package,and I obtain a very simple syntaxe like that:
IShellLink QueryInterface,ADDR IID_IPersistFile,ADDR ppvIPersistFile
and when all is finish:
IShellLink Release
Explain:
There is one macro by interface.I use name convention like that:
If the interface is call NameInterface
The interface pointer is ppvNameInterface
The structure of proto is STNameInterface
To make a new macro for a new interface , only change all of the Nameinterface by NewInterface in the new MACRO
You must respect this convention or modify the macro.
Here is a sample:
pcomethod1 TYPEDEF PROTO :DWORD
pcomethod2 TYPEDEF PROTO :DWORD, :DWORD
;/////////////////////////////////
comethod1 TYPEDEF PTR pcomethod1
comethod2 TYPEDEF PTR pcomethod2
STIShellLink STRUCT
; Iunknown proto
QueryInterface comethod3 ?
AddRef comethod1 ?
Release comethod1 ?
;------------- IShellLink proto
GetPath comethod5 ?
GetIDList comethod2 ?
SetIDList comethod2 ?
;/////////////////////////////////////////////////
GetIconLocation comethod4 ?
SetIconLocation comethod3 ?
SetRelativePath comethod3 ?
Resolve comethod3 ?
SetPath comethod2 ?
STIShellLink ENDS
IShellLink MACRO Function:REQ, args:VARARG
LOCAL InvokeInterface, arg
FOR arg, <args> ;verifier que edx n'est pas dans la liste d'arguments args
IFIDNI <&arg>, <edx> ;
.ERR <edx is not allowed as a coinvoke parameter>
ENDIF
ENDM
IFIDNI <&pInterface>, <edx>
.ERR <edx is not allowed as parameter>
ENDIF
;---------- edx is not used , create -----------------------------------
InvokeInterface CATSTR <invoke (STIShellLink PTR[edx]).>,<&Function,ppvIShellLink>
IFNB <args> ; add the list of parameter arguments if any
InvokeInterface CATSTR InvokeInterface, <, >, <&args>
ENDIF
;
mov edx, ppvIShellLink
mov edx, [edx]
InvokeInterface
ENDM
Don't forget to call
invoke CoCreateInstance, ADDR CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,\ ADDR IID_IShellLink,ADDR ppvIShellLink
a+
ToutEnMasm