专栏首页Qampp知识库.Delphi 判断exe, dll等应用程序[x86/x64]
原创

Delphi 判断exe, dll等应用程序[x86/x64]

function FileIS64( Filename:string ):Boolean;
var
  tsl:TStringStream;
  rStr:AnsiString;
begin
  Result := False;
  if not FileExists(Filename) then Exit;
  
  tsl := TStringStream.Create;
  try
    tsl.LoadFromFile(Filename);
    tsl.Position := 0;
  
    SetLength(rStr, tsl.Size * 2 );
    BinToHex(@tsl.Bytes[0], PAnsiChar(rStr), tsl.Size);
    Result := (Pos('5045000064', string(rStr)) > 1); 
  finally
    FreeAndNil(tsl);
  end;
end;

主是要转hex后, 判断数字.

原创声明,本文系作者授权云+社区发表,未经许可,不得转载。

如有侵权,请联系 yunjia_community@tencent.com 删除。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • win下php读取wmi类

    Tuesday
  • C# 对mysql的操作全记录.

    Tuesday
  • mysql 类型/json简单入门.

    mysql 自5.7后引入了新的类型:json. 也就是我们平时见习惯了的key/val结构体, 非常方便的一种类型.

    Tuesday
  • python sys模块的常见用法汇总

    python的内置模块sys,提供了系统相关的一些变量和函数,在实际开发中,常见的有以下几种用法

    生信修炼手册
  • FPGA(Field-Programmable Gate Array)

    FPGA(Field-Programmable Gate Array),即现场可编程门阵列,它是在PAL、GAL、CPLD等可编程器件的基础上进一步发展的产物。...

    easyAI
  • mysql常用命令

    --取出工资最高的前4名(分组查询 +分页查询) SELECT * FROM emps ORDER BY sal DESC LIMIT 0,4 ;

    用户5927264
  • Dockerfile 最佳实践及示例

    Dockerfile 最佳实践已经出现在官方文档中,地址在 Best practices for writing Dockerfiles[1]。如果再写一份最佳...

    山月
  • 为什么DDD是设计微服务的最佳实践

    在本人的前一篇文章《不要把微服务做成小单体》中,现在很多的微服务开发团队在设计和实现微服务的时候觉得只要把原来的单体拆小,就是微服务了。但是这不一定是正确的微服...

    rocket
  • HDU 1874 畅通工程续【Floyd算法实现】

    畅通工程续 Time Limit: 3000/1000 MS (Java/Others)    Memory Limit: 32768/32768 K (Jav...

    Angel_Kitty
  • Java基础——序列化

    Java的“对象序列化”能将一个实现了Serialiable接口(标记接口,没有任何方法)的对象转化为一组byte,这样日后要用到这个对象的时候,就能把这些by...

    mukekeheart

扫码关注云+社区

领取腾讯云代金券