易语言组件注册工具OCX注册DLL注册源码

组件注册工具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缓冲区长度;