不用Regsrv32,通过写代码也可以注册,以下是老外写的,看看: ********************************************** Example of how register ocx without Regsrv32 **********************************************var i : TCLSID; hOCX : integer; pReg : procedure; begin { Check ocx registration. } try i := StringToClassID('SoftwareFX.ChartFX.20'); except hOCX := LoadLibrary( 'CFX32.OCX' ); if (hOCX >= HINSTANCE_ERROR) then begin try pReg := GetProcAddress(hOCX,'DllRegisterServer'); if (@pReg <> nil) then pReg { Call the registration function } else MessageDlg('Error in registering OCX control.'); finally FreeLibrary(hOCX); end; end else MessageDlg('Error in loading OCX control.', mtError, [mbok],0); end; Application.Initialize;
将你的控件放在一个固定的路径;然后注册
怎么注册的?
IE 下载.ocx后是不是放在那个固定的目录?是不是要注册那个目录?
这目录不一定保存下载的ActiveX文件.
ActiveX的文件名也不一定要*.ocx你用DELPHI把ActiveX发布在网页上,浏览器可以下载后自动注册的,这同浏览器安全设置
有关。也可以手工注册,即wwwwwwww(我我) 给出的方法。
**********************************************
Example of how register ocx without Regsrv32 **********************************************var i : TCLSID;
hOCX : integer;
pReg : procedure;
begin
{ Check ocx registration. }
try
i := StringToClassID('SoftwareFX.ChartFX.20');
except
hOCX := LoadLibrary( 'CFX32.OCX' );
if (hOCX >= HINSTANCE_ERROR) then begin
try
pReg := GetProcAddress(hOCX,'DllRegisterServer');
if (@pReg <> nil) then
pReg { Call the registration function }
else
MessageDlg('Error in registering OCX control.');
finally
FreeLibrary(hOCX);
end;
end else
MessageDlg('Error in loading OCX control.', mtError, [mbok],0);
end;
Application.Initialize;
还有,上面的程序怎么从第一行就开始出错?
在object里插入以下codebase代码!
这个东西也有,
今天找了很多资料,发现只有一个办法,就是去微软网站上取得Sign Code,
但是满版的E文,怎么看得懂?哪位高人帮个忙啊!
还有上面那位老外的程序,我的ActiveX都还没下载,它怎么执行????