在Delphi中如何注册OCX控件(100分)

1.在一些安装程序中会自动注册ActiveX控件，怎么才能用编程的方法实现呢？
2.在Delphi中的一些类，如THTML等，当我在自己的系统中运行正常，但在另一台机器上
却要我注册它的类，我应该怎么做呢？

1。自己注册大概要自己写注册表了
2.你就用webbrower不就行了么，只要装了ie就行了

用regsvr32 filename.ocx注册

procedure TForm1.Button1Click(Sender: TObject);
var
astr:String;
bstr:String;
ProcAddrointer;
DllAddr:Integer;
begin
od1.Execute;
astr:=od1.FileName+chr(0);
DllAddr:=LoadLibrary(PChar(astr));
if DllAddr<>0 then
begin
bstr:='DllUnregisterServer'+chr(0);
//只要将以上处改为DllRegisterServer即不注册ActiveX控件
ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
if ProcAddr<>nil then
CallWindowProc(ProcAddr,DllAddr,0,0,0)
else
ShowMessage(od1.FileName+'不是有效的控件');
FreeLibrary(DllAddr);
end
else
ShowMessage(od1.FileName+'无法装载');
end;

又来晚了，agree wind2000,但你写反了，DllUnregisterServer是解除注册，
DllregisterServer是注册。
btw : 怎样判断一个控件是否已经注册了呢？总不能将一个控件反复注册把

多人接受答案了。