Delphi 判断是否为二进制文件

本文整理自网络，侵删。

 
function IsDFMBinary(FileName: string): Boolean;
var
  F: TFileStream;
  B: Byte;
begin
  B := 0;
  F := TFileStream.Create(FileName, fmOpenRead);
  try
    F.Read( B, 1 );
    Result := B = $FF;
  finally
    F.Free;
  end;
end;
 

相关阅读 >>

Delphi 模似键盘输入又一方法

线程池的概念

Delphi 检查注册表键、键值是否存在

Delphi windows 编程[2] - 学习窗体生成的过程二

Delphi2010中Delphi class explorer妙用

5种运行程序的方法具体应用实例

Delphi 不可移动的窗体

Delphi 计算加班时间工时的函数

Delphi图像hash算法，关于图像相似度问题

Delphi开发linux包

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

转载请注明出处：木庄网络博客 » Delphi 判断是否为二进制文件