易语言免注册调用com对象源码

系统结构:模块_创建Ax组件,模块_动态调用COM,取指针_对象,取指针_类厂,A2W,取指针_整数,取指针_字节集,IClassFactory_QueryInterface,IClassFactory_AddRef,IClassFactory_Release,IClassFactory_CreateInstance,IClassFactory_LockServer,CLSIDFromString,MultiByteToWideChar,LoadLibrary,FreeLibrary,GetProcAddress,CallWindowProc,AtlAxWinInit,AtlAxAttachControl,AtlAxGetControl,CoInitialize,CoUninitialize,CreateWindowEx,GetModuleHandle,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
  ======程序集1
           |  |
           |  |------ _启动子程序
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 模块_创建Ax组件
           |  |
           |  |------ 模块_动态调用COM
           |  |
           |  |------ 取指针_对象
           |  |
           |  |------ 取指针_类厂
           |  |
           |  |------ A2W
           |  |
           |  |------ 取指针_整数
           |  |
           |  |------ 取指针_字节集
           |  |
           |  |
======_IClassFactory
           |  |
           |  |------ IClassFactory_QueryInterface
           |  |
           |  |------ IClassFactory_AddRef
           |  |
           |  |------ IClassFactory_Release
           |  |
           |  |------ IClassFactory_CreateInstance
           |  |
           |  |------ IClassFactory_LockServer
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   _ClassFactory
           |  |
           |  |---[dll]------   _Int32
           |  |
           |  |---[dll]------   _Object
           |  |
           |  |---[dll]------   _bin
           |  |
           |  |---[dll]------   LoadLibrary
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   AtlAxWinInit
           |  |
           |  |---[dll]------   AtlAxAttachControl
           |  |
           |  |---[dll]------   AtlAxGetControl
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   _ToRef

调用的DLL命令:

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 MultiByteToWideChar, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpWideCharStr, 字节集, 传址
    .参数 cchWideChar, 整数型

.DLL命令 _ClassFactory, 整数型, , "lstrcatA"
    .参数 a, IClassFactory, 传址
    .参数 b, 整数型, 传址

.DLL命令 _Int32, 整数型, , "lstrcatA"
    .参数 a, 整数型, 传址
    .参数 b, 整数型, 传址

.DLL命令 _Object, 整数型, , "lstrcatA"
    .参数 a, 对象, 传址
    .参数 b, 整数型, 传址

.DLL命令 _bin, 整数型, , "lstrcatA"
    .参数 a, 字节集, 传址
    .参数 b, 整数型, 传址

.DLL命令 LoadLibrary, 整数型, "kernel32", "LoadLibraryA"
    .参数 lpLibFileName, 文本型

.DLL命令 FreeLibrary, 整数型, "kernel32", "FreeLibrary"
    .参数 hLibModule, 整数型

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 字节集
    .参数 hwnd, 整数型
    .参数 msg, 整数型, 数组
    .参数 wParam, 整数型
    .参数 lParam, 逻辑型

.DLL命令 AtlAxWinInit, , "atl.dll", "AtlAxWinInit"

.DLL命令 AtlAxAttachControl, 整数型, "atl.dll", "AtlAxAttachControl"
    .参数 pControl, 整数型
    .参数 hWnd, 整数型
    .参数 ppUnkContainer, 整数型

.DLL命令 AtlAxGetControl, 整数型, "atl.dll", "AtlAxGetControl"
    .参数 h
    .参数 x, 对象

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize"

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 _ToRef, , , "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 对象
    .参数 Length, 整数型