home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VB / UNSUPPRT / IHANDLER / IHANDLER.BAS next >
Encoding:
BASIC Source File  |  1997-01-16  |  1.0 KB  |  26 lines
  1. Attribute VB_Name = "mExtractIcon"
  2. Option Explicit
  3.  
  4. '----------------------------------------------------------------
  5. '- Public type used in Ole32 api calls...
  6. '----------------------------------------------------------------
  7. Public Type GUID
  8.     Data1 As Long
  9.     Data2 As Integer
  10.     Data3 As Integer
  11.     Data4(7) As Byte
  12. End Type
  13.  
  14. '----------------------------------------------------------------
  15. '- Public API Declares...
  16. '----------------------------------------------------------------
  17. Public Declare Function CLSIDFromString Lib "ole32.dll" (strCLS As Long, clsid As GUID) As Long
  18. Public Declare Function CoCreateInstance Lib "ole32.dll" (rclsid As GUID, pUnkOuter As Any, ByVal dwClsContext As Long, riid As GUID, ppvObj As IUnknown) As Long
  19.  
  20. '----------------------------------------------------------------
  21. '- Public Constants...
  22. '----------------------------------------------------------------
  23. Public Const CLSCTX_INPROC_SERVER = 1
  24. Public Const CLSCTX_INPROC_HANDLER = 2
  25. Public Const CLSCTX_LOCAL_SERVER = 4
  26.