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