易语言API创建对象源码

系统结构:CLSIDToString,StringToCLSID,ProgIDToCLSID,IIDToString,GUIDToString,A2W,W2A,CreateGUID,CoInitialize,CoUninitialize,IIDFromString,CLSIDFromProgID,CLSIDFromString,StringFromCLSID,StringFromGUID2,CoGetClassObject,CoCreateInstance,CoCreateGuid,WideCharToMultiByte,MultiByteToWideChar,CoRegisterClassObject,对象取指针,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======Other
           |  |
           |  |------ CLSIDToString
           |  |
           |  |------ StringToCLSID
           |  |
           |  |------ ProgIDToCLSID
           |  |
           |  |------ IIDToString
           |  |
           |  |------ GUIDToString
           |  |
           |  |------ A2W
           |  |
           |  |------ W2A
           |  |
           |  |------ CreateGUID
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   IIDFromString
           |  |
           |  |---[dll]------   CLSIDFromProgID
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   StringFromCLSID
           |  |
           |  |---[dll]------   StringFromGUID2
           |  |
           |  |---[dll]------   CoGetClassObject
           |  |
           |  |---[dll]------   CoCreateInstance
           |  |
           |  |---[dll]------   CoCreateGuid
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   CoRegisterClassObject
           |  |
           |  |---[dll]------   对象取指针

调用的DLL命令:

.DLL命令 CoInitialize, 整数型, "ole32.dll", "CoInitialize", 公开, HRESULT WINAPI CoInitialize
    .参数 pvReserved, 整数型, , _In_opt_ LPVOID pvReserved,

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize", 公开, void WINAPI CoUninitialize

.DLL命令 IIDFromString, 整数型, "ole32.dll", "IIDFromString", 公开, HRESULT WINAPI IIDFromString
    .参数 lpsz, 整数型, , _In_ LPCOLESTR lpsz,
    .参数 lpiid, GUID, , _Out_ LPIID lpiid,

.DLL命令 CLSIDFromProgID, 整数型, "ole32.dll", "CLSIDFromProgID", 公开, HRESULT WINAPI CLSIDFromProgID
    .参数 lpszProgID, 字节集, , _In_ LPCOLESTR lpszProgID,
    .参数 lpclsid, GUID, 传址, _Out_ LPCLSID lpclsid,

.DLL命令 CLSIDFromString, 整数型, "ole32.dll", "CLSIDFromString", 公开, HRESULT WINAPI CLSIDFromString
    .参数 lpsz, 字节集, , _In_ LPCOLESTR lpsz,
    .参数 pclsid, GUID, 传址, _Out_ LPCLSID pclsid,

.DLL命令 StringFromCLSID, 整数型, "ole32.dll", "StringFromCLSID", 公开, HRESULT WINAPI StringFromCLSID
    .参数 rclsid, GUID, , _In_ REFCLSID rclsid,
    .参数 lplpsz, 整数型, 传址, _Out_ LPOLESTR lplpsz,

.DLL命令 StringFromGUID2, 整数型, "ole32.dll", "StringFromGUID2", 公开, int WINAPI StringFromGUID2
    .参数 rguid, GUID, , _In_ REFGUID rguid,
    .参数 lpsz, 字节集, , _Out_ LPOLESTR lpsz,
    .参数 cchMax, 整数型, , _In_ int cchMax,

.DLL命令 CoGetClassObject, 整数型, "ole32.dll", "CoGetClassObject", 公开, HRESULT WINAPI CoGetClassObject
    .参数 rclsid, GUID, , _In_ REFCLSID rclsid,
    .参数 dwClsContext, 整数型, , _In_ DWORD dwClsContext,
    .参数 pServerInfo, COSERVERINFO, , _In_opt_ COSERVERINFO pServerInfo,
    .参数 riid, GUID, , _In_ REFIID riid,
    .参数 ppv, 整数型, 传址, _Out_ LPVOID ppv,

.DLL命令 CoCreateInstance, 整数型, "ole32.dll", "CoCreateInstance", 公开, 用指定的类标识符创建一个Com对象,用指定的类标识符创建一个未初始化的对象。
    .参数 rclsid, GUID, 传址, 创建的Com对象的类标识符(CLSID)
    .参数 pUnkOuter, 整数型, , 指向接口IUnknown的指针
    .参数 dwClsContext, 整数型, , 运行可执行代码的上下文
    .参数 riid, GUID, 传址, 创建的Com对象的接口标识符
    .参数 ppv, 整数型, 传址, 用来接收指向Com对象接口地址的指针变量

.DLL命令 CoCreateGuid, 整数型, "ole32.dll", "CoCreateGuid", 公开, 创建GUID
    .参数 pguid, GUID, 传址, _Out_ GUID pguid,

.DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 Options, 整数型
    .参数 WideCharStr, 整数型
    .参数 WideCharCount, 整数型
    .参数 MultiByteStr, 整数型
    .参数 MultiByteCount, 整数型
    .参数 pDefaultChar, 整数型
    .参数 pDefaultCharUsed, 整数型

.DLL命令 MultiByteToWideChar, 整数型, "kernel32.dll", "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 Options, 整数型
    .参数 StringToMap, 整数型
    .参数 StringSize, 整数型
    .参数 WideCharBuf, 整数型
    .参数 WideBufSize, 整数型

.DLL命令 CoRegisterClassObject, 整数型, "ole32", "CoRegisterClassObject", 公开, HRESULT WINAPI CoRegisterClassObject
    .参数 rclsid, GUID, , _In_ REFCLSID rclsid,
    .参数 pUnk, 整数型, , _In_ LPUNKNOWN pUnk,
    .参数 dwClsContext, 整数型, , _In_ DWORD dwClsContext,
    .参数 flags, 整数型, , _In_ DWORD flags,
    .参数 lpdwRegister, 整数型, 传址, _Out_ LPDWORD lpdwRegister,

.DLL命令 对象取指针, 整数型, "Kernel32.dll", "SetHandleCount"
    .参数 对象, 对象