在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

本文整理自网络，侵删。

 /在一个exe文件中查找指定内容，找到则返回起始位置, 否则返回0 //如果某字符串, 直接传入字符串进来 //如果要查找16进制，则用如下格式传参进来： #$1A#$2A#$3Afunction FindString(FileName, FindStr: string): Int64;var  FileStream: TFileStream;  i: Int64;  Buff: string;begin  FileStream := TFileStream.Create(FileName, fmOpenRead);  SetLength(Buff, FileStream.Size);  FileStream.Position := 0;  FileStream.ReadBuffer(PChar(Buff)^, FileStream.Size);  i := Pos(FindStr, Buff);  if i > 0 then Result := i-1 else Result := 0;  FileStream.Destroy;end;  

相关阅读 >>

Delphi 检测是否包含字符

Delphi fdquery 判断记录为空

Delphi 网上获取北京时间验证码识别之中值滤波

Delphi 10.3 开发app 在android手机上获取imei

Delphi tstringlist删除重复项

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi 输入年月判断天数

Delphi中使用ado连接带密码的access

Delphi 获取系统mydocuments文件夹路径

Delphi截图程序无窗口版

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » 在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0