如果你用的是Delphi5以上的版本,
在RDM中的UpdateRegistry过程中使用RegisterPooled和UnregisterPooled(ClassID);
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
//加上一句,参数你可以看帮助根据你的实际情况来设置
RegisterPooled(ClassID, 10, 60, False);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
//加上第二句
UnregisterPooled(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;