|
Example (in Delphi):=0D
=0D
===============ani.dpr================0D
program ani;=0D
{$APPTYPE CONSOLE}=0D
const=0D
FileName='file.ani';=0D
Len=113;=0D
Buf=#$52#$49#$46#$46#$00#$00#$00#$00#$41#$43#$4F#$4E#$00#$00#$00#$00#$24#$00+=0D
#$00#$00#$24#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00+=0D
#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00+=0D
#$4C#$49#$53#$54#$00#$00#$00#$00#$66#$72#$61#$6D#$69#$63#$6F#$6E#$00#$00#$00+=0D
#$00#$00#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$02#$00+=0D
#$16#$00#$00#$00#$28#$00#$00#$00#$FF#$FF#$FF#$00#$02#$00#$00#$00#$00#$00#$01;=0D
var=0D
F:File;=0D
I:Byte;=0D
begin=0D
AssignFile(F,FileName);=0D
Rewrite(F,1);=0D
BlockWrite(F, Buf, Len);=0D
CloseFile(F);=0D
end.=0D
===============ani.dpr================0D
=0D
1) Compile and Run "ani.dpr" with Delphi=0D
2) Open "file.ani" with InfanView