如何注册Ocx控件？
用Delphi编写了一个程序,其中用到了VB中的一个ActiveX 控间,现在用IS Express给该程序打包，但是确需要先注册Ocx控件程序才能运行。
现在我不想使用Ocx的注册工具，能否直接在IS Express中把Ocx注册进去?
或者通过修改注册表的方法注册Ocx,那么具体是修改哪些键值呢？
请各位大虾指点!
问题点数：50、回复次数：3Top
1 楼kxy（手举穿肠毒药，怀抱刮骨钢刀）回复于 2000-06-22 16:46:00 得分 20
install shield for delpi 4.0可以直接注册
点中次ocx,看他的properties,有self registerTop
2 楼meijg（星星之火）回复于 2000-06-22 17:10:00 得分 10
kxy是对的，在IS Express中把ocx文件包含进去，然后看ocx文件的properties,有关于Self-register的选择，自然就可以自动注册了Top
3 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2000-06-22 19:34:00 得分 20
我不知道可否用IS Express,请那位知道告诉我一下，email:aiirii@21cn.com
但我知道一个用程序注册的方法：
procedure TForm1.Button1Click(Sender: TObject);
var astr,bstr:string;
ProcAddr:Pointer;
DllAddr:integer;
begin
Opendialog1.Execute;
astr:=OpenDialog1.filename + chr(0);
DllAddr:=LoadLibrary(PChar(astr));
if (DllAddr<>0) then
begin
label1.caption:=astr;
bstr:='DllRegisterServer' + chr(0);
ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
if ProcAddr<> nil then
CallWindowProc(ProcAddr,DllAddr,0,0,0)
else
ShowMessage(OpenDialog1.Filename + '不是有效的控件');
FreeLibrary(DllAddr);
end
else
ShowMessage(OpenDialog1.Filename + '无法装载');
end;
Top
