imapi with interface ?

[bingo]

a problem to call (xp) imapi with interface ...

Code: Select all

CoInitialize_(0) 
If CoCreateInstance_(?CLSID_MSDiscMasterObj,0,1,?IID_IDiscMaster,@object.IDiscMaster) = 0 

;object\...
   
EndIf
CoUninitialize_()

DataSection

CLSID_MSDiscMasterObj:
Data.l $520CCA63
Data.w $51A5,$11D3
Data.b $91,$44,$00,$10,$4B,$A1,$1C,$5E

IID_IDiscMaster:
Data.l $520CCA62
Data.w $51A5,$11D3
Data.b $91,$44,$00,$10,$4B,$A1,$1C,$5E

EndDataSection

:roll:

http://msdn.microsoft.com/library/defau ... rfaces.asp