RSS订阅 | 匿名投稿
您的位置:网站首页 > Dll > 正文

delphi中实现dll文件自动注册

作者:admin 来源:未知 日期:2010/1/27 8:54:00 人气: 标签: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;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: