unit1.pas.~4~

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.