组件注册工具OCX注册DLL注册

系统结构:彗星注册组件,彗星卸载组件,彗星信息框,GetProcAddress,LoadLibrary,FreeLibrary,CallWindowProc,MessageBox,GetShortPathName,

======窗口程序集1

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ _拖放对象1_得到文件

           |  |

           |  |------ _按钮_浏览_被单击

           |  |

           |  |------ _按钮_确定_被单击

           |  |

           |  |------ _按钮_取消_被单击

           |  |

           |  |------ _图片框1_鼠标左键被按下

           |  |

           |  |

======功能接口程序集

           |  |

           |  |------ 彗星注册组件

           |  |

           |  |------ 彗星卸载组件

           |  |

           |  |------ 彗星信息框

           |  |

           |  |

======调用的Dll

           |  |

           |  |---[dll]------   GetProcAddress

           |  |

           |  |---[dll]------   LoadLibrary

           |  |

           |  |---[dll]------   FreeLibrary

           |  |

           |  |---[dll]------   CallWindowProc

           |  |

           |  |---[dll]------   MessageBox

           |  |

           |  |---[dll]------   GetShortPathName

  

调用的DLL命令:

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 返回函数地址　

    .参数 hModule, 整数型

    .参数 lpProcName, 文本型

.DLL命令 LoadLibrary, 整数型, "kernel32", "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间。一旦载入，即可访问库内保存的资源　成功则返回库模块的句柄，零表示失败。会设置GetLastError

    .参数 lpLibFileName, 文本型, , 指定要载入的动态链接库的名称。采用与CreateProcess函数的lpCommandLine参数指定的同样的搜索顺序;  

.DLL命令 FreeLibrary, 整数型, "kernel32", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary ;    API函数装载的　非零表示成功，零表示失败。会设置GetLastError

    .参数 hLibModule, 整数型, , 要释放的一个库句柄在VB里使用只能用这个函数释放那些由应用程序明确装载的DLL。对LoadLibrary的每一次调用都应该有一个对应的FreeLibrary调用;

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"

    .参数 lpPrevWndFunc

    .参数 hwnd

    .参数 Msg

    .参数 wParam

    .参数 lParam

.DLL命令 MessageBox, 整数型, "user32.dll", "MessageBoxA"

    .参数 hwnd, 整数型

    .参数 lpText, 文本型

    .参数 lpCaption, 文本型

    .参数 wType, 整数型

.DLL命令 GetShortPathName, 整数型, "kernel32", "GetShortPathNameA", , 获取指定文件的短路径名　装载到lpszShortPath缓冲区的字符数量。如lpszShortPath的长度不足，不能容下文件名，就返回需要的缓冲区长度

    .参数 lpszLongPath, 文本型, , 指定欲获取短路径名的那个文件的名字。可以是个完整路径，或者由当前目录决定

    .参数 lpszShortPath, 文本型, , 指定一个缓冲区，用于装载文件的短路径和文件名

    .参数 cchBuffer, 整数型, , lpszShortPath缓冲区长度;