关于com调用的问题,急!

[Littleming]

我做了个dll加密程序,注册成com组件,在调用时正常,但是cpu会占用的很高,发现进程中dllhost占用cpu,我调用的代码如:
type
IDES = interface(IDispatch)
['{93FE8AA8-5059-498E-8204-977C59B4B78F}']
procedure Decrypt(aStr: OleVariant; aKey: OleVariant; var out: OleVariant); safecall;
procedure Encrypt(aStr: OleVariant; aKey: OleVariant; var out: OleVariant); safecall;
end;
var
CLASS_DES_: TGUID = '{F554B7D3-0A20-40DD-B01B-786B361D580A}';
DES:IDES;

初始化:
DES := createcomobject(CLASS_DES_) as IDES;


1.程序一用,cpu就狂骠,是什么问题?
2.关闭程序后,进程中dllhost还在,是什么问题?
3.有没有destorycomobject()的方法?怎么释放不需要的comobject?

[Littleming]

怎么没人回答啊？不够加分啦！！！！！

[21ithorse]

最好具体点，有没有可能出现一些死循环之类的(跟踪一下程序)

[Littleming]

怎么没人回答啊！