Laufschrift auf dem Desktop

[BullsEye]

Hier der Code zur Laufschrift:

Laufschrift a la Winamp
Versch Varianten


musst du halt nur noch auf deinen Code anpassen.

Für Die Taskleiste könntest du nen Deskband nehmen.

Sonst kannst du mit folgendem Code auch direkt auf dem Desktop schreiben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 DCanvas: TCanvas;
 DHandle: HWND;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
       DCanvas.Handle:=DHandle;
       DCanvas.Font.Color:=clRed;
       DCanvas.Font.Size:=24;
       DCanvas.Brush.Style:=bsClear;
       DCanvas.TextOut(100, 100, 'Ich will ein Spiel spielen!!!');
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
    end;
 end;
end;

EDIT: Der Code ist aber nicht gerade der feinste es kann da ab und zu zu anzeigefehlern kommen!