孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

procedure deregisterFileType(ft:string);

var

    myreg:TRegistry;

    key:string;

begin

    myreg :=TRegistry.Create;

    myreg.Rootkey :=HKEY_CLASSES_ROOT;

    myreg.OpenKey(ft,False;);

    key :=MyReg.ReadString('');

    myreg.CloseKey;

    myreg.DeleteKey(ft);

    myreg.DeleteKey(key);

    myreg.Free;

end;

posted on 2008-09-13 11:18  孤独的猫  阅读(275)  评论(0编辑  收藏  举报