delphi中实现dll文件自动注册

本文整理自网络，侵删。

 type 
TDllRegisterServer=function:HResult; stdcall; 
procedure RegisterDll(DllName :string); 
var 
h:HModule; 
Ocx:TDllRegisterServer; 
begin 
h := 0; 
try 
h := LoadLibrary(PChar(DllName)); 
@Ocx:=GetProcAddress(H,'DllRegisterServer'); 
Ocx; 
except 
ShowWarning('注册' + DllName + '失败！请检查该文件是否存在。'); 
end; 
FreeLibrary(H); 
end; 

相关阅读 >>

secsperday：一天共有多少秒

Delphi文件操作的一些函数

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

如何为Delphi程序添加事件和事件处理器

Delphi复制整个文件夹(当然包括嵌套文件夹)

Delphi 中 inputquery 实现密码输入

Delphi显示gif动画简单方法

Delphi 获取硬盘盘符

Delphi中对进程内存进行读写

Delphi 取文件目录下所有文件名和文件目录名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中实现dll文件自动注册