本文整理自网络,侵删。
//数据异或校验function BytesXor(buffer:array of byte):Integer;vari:integer;beginResult:=$0;for i:=Low(buffer) to High(buffer) dobeginresult:=result xor buffer[i];end;end;
相关阅读 >>
Delphi tstringlist 保存txt文本文件最后一行不留空行
Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具
Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值
更多相关阅读请进入《Delphi》频道 >>