delphi crc 校验 文件完整性 crc32 字串完整性 Crc32.pas 拿着就用 procedure TUpdate_Form.Button16Click(Sender: TObject); var CRC32 : DWORD ; begin //FileStr:=Application.ExeName;//这里取指定的文件的crc32校验值; GetCRC32File(ExtractFilePath(ParamStr(0))+'VersionList.xsd',CRC32); if CRC320 then Memo1.Lines.Add(PCha