关于使用delphi为word加保护模式与解保护模式

就目前来说，delphi应该说已经被埋葬的语言的，但是在12年左右的时候，各大公司的使用率还是挺高的，虽然现在delphi工程师招聘的很少，但是每一个人都是宝。
废话不多说，其实delphi和VB的语法很像，能够对microsoft office进行一些常见的操作，这里网上有很多博客关于此方面，我就不把方法或者属性一一举例了。不过做开发API是必不可少的，下面的链接为Microsoft的开发者API，大家可以去那寻找需要的方法以及属性。https://docs.microsoft.com/zh-cn/
下面进入正题
word文档等办公工具采用的保护模式加密方式为RC4，目前已知最快解密也需要十小时的时间，而且采用暴力破解的方式，所以本案例介绍到的是在密码已知的情况下，如果想了解RC4的机制，我看到一篇简单易懂的博客分享给大家https://www.cnblogs.com/gambler/p/9075415.html
其实很简单，如果你现在的文本是处于加密状态只需要实现——document接口重写下面的方法即可

_Document.unprotect(var password:OleVariant)

当我们需要对文档进行加密保护时，调用一个简单的方法即可

_document.Protect(Type_: WdProtectionType; var NoReset: Variant; var Password: OleVariant;var UseIRM: OleVariant; var EnforceStyleLock: OleVariant)

在写的时候遇到一个坑，因为很多参数为OleVatiant格式，所以直接进行参数的添加，例如：

   wordDoc.Protect(1,0,'111',0,0);

系统这时候会给我抛异常，告诉我类型不匹配，其实这个问题很好解决，只需要在你当前的方法中将你需要的参数定义为相应格式的变量，随后进行赋值即可，这样既能保证传入的型参与实参的类型相同。