Example (in Delphi):

===============cur.dpr===============

program cur;

{$APPTYPE CONSOLE}

const

  FileName='file.cur';

  Len=6;

  Buf=#$00#$00#$01#$00#$00#$00;

var

  F:File;

begin

  AssignFile(F,FileName);

  Rewrite(F,1);

  BlockWrite(F,Buf,Len);

  CloseFile(F);

end.

===============cur.dpr===============


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

2) Open "file.cur" with InfanView

Reply via email to