You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
1020 B
26 lines
1020 B
Attribute VB_Name = "mExtractIcon"
|
|
Option Explicit
|
|
|
|
'----------------------------------------------------------------
|
|
'- Public type used in Ole32 api calls...
|
|
'----------------------------------------------------------------
|
|
Public Type GUID
|
|
Data1 As Long
|
|
Data2 As Integer
|
|
Data3 As Integer
|
|
Data4(7) As Byte
|
|
End Type
|
|
|
|
'----------------------------------------------------------------
|
|
'- Public API Declares...
|
|
'----------------------------------------------------------------
|
|
Public Declare Function CLSIDFromString Lib "ole32.dll" (strCLS As Long, clsid As GUID) As Long
|
|
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
|
|
|
|
'----------------------------------------------------------------
|
|
'- Public Constants...
|
|
'----------------------------------------------------------------
|
|
Public Const CLSCTX_INPROC_SERVER = 1
|
|
Public Const CLSCTX_INPROC_HANDLER = 2
|
|
Public Const CLSCTX_LOCAL_SERVER = 4
|