注册DLL或OCX的函数
来源:互联网 发布:淘宝追评时间期限 编辑:程序博客网 时间:2024/05/16 19:55
function RegisterOleFile(strOleFileName: string; OleAction: byte): Boolean;
const
RegisterOle = 1; //注册
UnRegisterOle = 0; //卸载
type ToleRegisterFunction = function: HResult; //注册或卸载函数的原型
var
hLibraryHandle: THandle; //由LoadLibrary返回的DLL或OCX句柄
hFunctionAddress: TfarProc;
RegFunction: ToleRegisterFunction; //注册或卸载函数指针
begin
Result := False;
hLibraryHandle := LoadLibrary(PChar(strOleFileName)); //打开Ole/Dcom文件,返回的DLL或OCX句柄
//DLL或OCX句柄正确
if (hLibraryHandle > 0) then try
//返回注册或卸载函数的指针
if (OleAction = RegisterOle) then
hFunctionAddress := GetProcAddress(hLibraryHandle, PChar('DllRegisterServer'))
else hFunctionAddress := GetProcAddress(hLibraryHandle, PChar('DllunRegisterServer'));
if (hFunctionAddress <> nil) then begin
RegFunction := ToleRegisterFunction(hFunctionAddress); //获取操作函数的指针
if RegFunction >= 0 then Result := True; //执行注册或卸载,返回值>=0表示执行成功
end;
finally
FreeLibrary(hLibraryHandle); //关闭已打开的Ole/Dcom文件
end;
end;
- 注册DLL或OCX的函数
- 批处理注册DLL文件或OCX文件让Windows找回“丢失”的DLL,OCX文件
- 如何注册DLL或OCX文件
- 如何注册.DLL或.OCX文件
- 批量注册dll或ocx文件
- 批量注册dll或ocx文件
- 注册DLL、OCX的方法
- 注册DLL、OCX的方法
- 注册DLL、OCX的方法
- 手工注册或取消注册.dll或.ocx组件
- 注册或取消注册.dll或.ocx组件
- 通过系统右键注册和反注册OCX或DLL
- 批量注册两个或多个DLL / OCX 的BAT批处理
- 增加注册OCX和DLL的菜单
- 黑客技巧之如何注册DLL或OCX文件
- 教你如何注册DLL或OCX文件
- 教你如何注册DLL或OCX文件
- 教你如何注册DLL或OCX文件
- 打造口袋版XP系统—— WIN PE系统U盘版
- 应用系统架构设计
- 人生值得珍藏的42句话
- 心率推算表
- 我应该体谅他!
- 注册DLL或OCX的函数
- 网卡被屏蔽
- Eclipse CDT 配置C/C++ 编译环境
- 08.02.19
- 延年益壽十則
- 中序遍历二叉树的非递归算法
- 初识TC3.0
- TgaImageClass
- JavaScript从入门到精通:窗口及输入输出