大漠免注册调用易语言演示源码

系统结构:置大漠全路径,创建大漠对象,LoadFileTypeInfo,DllGetClassObject,CLSIDToString,GetCLSMethod,IUnknown_Release,IClassFactory_CreateInstance,ITypeLib_GetTypeInfoOfGuid,IUnknown_AddRef,取字节集指针,LoadTypeLib,StringFromCLSID,This2Object,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 置大漠全路径
           |  |
           |  |------ 创建大漠对象
           |  |
           |  |------ LoadFileTypeInfo
           |  |
           |  |------ _GetTypeInfo
           |  |
           |  |------ DllGetClassObject
           |  |
           |  |------ CLSIDToString
           |  |
           |  |------ GetCLSMethod
           |  |
           |  |------ IUnknown_Release
           |  |
           |  |------ IClassFactory_CreateInstance
           |  |
           |  |------ ITypeLib_GetTypeInfoOfGuid
           |  |
           |  |------ IUnknown_AddRef
           |  |
           |  |------ 取字节集指针
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LoadTypeLib
           |  |
           |  |---[dll]------   StringFromCLSID
           |  |
           |  |---[dll]------   This2Object

调用的DLL命令:

.DLL命令 LoadTypeLib, 整数型, "oleaut32.dll"
    .参数 szFile, 字节集, 传址
    .参数 pptlib, 整数型, 传址

.DLL命令 StringFromCLSID, 整数型, "ole32.dll"
    .参数 rclsid, 字节集
    .参数 ppsz, 整数型, 传址

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