unit1.pas.~5~

bin form to tex form

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    btn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsBinDfm(const ADfmFileName: string): Boolean;
 Var
 mBinStream: TMemoryStream;
 mBuff: array[0..2] of byte;
 begin
 mBinStream := TMemoryStream.Create;
 try
 mBinStream.LoadFromFile(ADfmFileName);
 mBinStream.Read(mBuff, 3);
 //前三字节: $FF, $0A, $00
 if (mBuff[0] = $FF) and (mBuff[1] = $0A) and (mBuff[2] = $00) then
 Result := True
 else
 Result := False;
 finally
 mBinStream.Free;
  end;
 end;
end.