取消文件类型的关联

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;