Delphi Md5文件效验器 函数代码(100)

function SameMD5(FileName,FileName2:String):Booleanbegin Result:=Md5File(FileName)=Md5File(FileName2);end;Function Md5File(FileName:String):String;begin xxxxxxend;Md5File 函数如何写？如果，待各位人帮我解决这个困扰很长时间的问题复制粘贴的就免了。。。

网上很多~~难道不符合你的要求？

网上的都是 对字符串进行md5加密，而不是对文件