Canvas Bewegen (schnee programm)

[hedie]

Hallo

Ich möchte ein Programm schreiben, welches Fallender Schnee auf dem Gesamten (!) Desktop simuliert

Habe dazu mal diesen Code zusammengebastelt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  h : HWND;
  c : TCanvas;
  i:tbitmap;
begin
  i:=tbitmap.Create;
  i.LoadFromFile('snow.bmp');
  h:=FindWindow('Progman',nil);
  h:=FindWindowEx(h,0,'SHELLDLL_DefView',nil);
  h:=FindWindowEx(h,0,'SysListView32',nil);
  c:=TCanvas.Create;
  c.Handle:=GetDc(h);
  c.Pen.Color:=clRed;
  c.Draw(100,100,i);
  //c.TextOut(100,100,'HehOsdffsdfsdsdf');
end;

Die Schneeflocke ist angehängt

Nun bräuchte ich ein paar Tipps oder Code schnipsel wie ich die Schneeflocken animieren kann

Und was ich machen muss damit sie bei Objekten wie zb Fenster oder Icons liegen bleiben...

Danke schonmal

Liebe Grüsse
Claudio