Example (in Delphi):

===============ani.dpr===============

program ani;

{$APPTYPE CONSOLE}

const

  FileName='file.ani';

  Len=113;

  Buf=#$52#$49#$46#$46#$00#$00#$00#$00#$41#$43#$4F#$4E#$00#$00#$00#$00#$24#$00+

  #$00#$00#$24#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00+

  #$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00+

  #$4C#$49#$53#$54#$00#$00#$00#$00#$66#$72#$61#$6D#$69#$63#$6F#$6E#$00#$00#$00+

  #$00#$00#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$02#$00+

  #$16#$00#$00#$00#$28#$00#$00#$00#$FF#$FF#$FF#$00#$02#$00#$00#$00#$00#$00#$01;

var

  F:File;

  I:Byte;

begin

  AssignFile(F,FileName);

  Rewrite(F,1);

  BlockWrite(F, Buf, Len);

  CloseFile(F);

end.

===============ani.dpr===============


1) Compile and Run "ani.dpr" with Delphi

2) Open "file.ani" with InfanView

Reply via email to