function GetFileMD5(var path:string):string; //uses IdHashMessageDigest var filemd5:TIdHashMessageDigest5; begin filemd5:=TIdHashMessageDigest5.Create; //必须先初始化 result:=filemd5.AsHex(filemd5.HashValue(TFileStream.Create(path,fmOpenRead))); filemd5.Free; //最后必须释放对象 end;