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 10.3 调试程序时出错：unable to create process:请求的操作需要提升

Delphi 常见的各种形式的组件的安装方法介绍

Delphi 不用控件用函数实现发email

Delphi 递归遍历 treeview树节点

Delphi 制作资源文件并释放运行

Delphi 判断dll动态链接库是否可用

Delphi webbrowser 去除滚动条和边框

Delphi xe7 新的并行库 system.threading

Delphi 读取utf-8格式的文件内容

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

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