Inclure/utiliser un curseur animé dans votre application

Fichier Exemple.rc
Anim RCDATA "Globe.ani"

Compiler avec BRCC32.exe

Dans le projet Delphi
...
implementation

{$R *.DFM}
{$R exemple.RES}

procedure TForm1.Button1Click(Sender: TObject);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, 'anim', RT_RCDATA);
Res.SavetoFile('C:MonCursor.ani');
Res.Free;
Screen.Cursors[1] := LoadCursorFromFile('c:MonCursor.ani');
Button1.Cursor := 1;
DeleteFile('C:MonCursor.ani');
end;