UpdateRegistry

procedure TRDMCardServer.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); RMT アイオン
begin RMT 携帯
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;