рисунки курсором

[bars1k]

видел программку, при запуске которой курсор начинает вырисовывать на рабочем столе рисунки и надписи (похоже на распылитель в paint), подскажите как это зделать с помощью Delphi

[Stilet]

Вот рисовалка на "экране" Движения курсора сам допиши, ничего сложного, поиском по форуму кучу найдеш ответов.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   h:HDC;x,y:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  x:=x+20-random(40);
  y:=x+20-random(40);
  LineTo(h,x,y);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
x:=Screen.Width div 2;
y:=Screen.Height div 2;
h:=GetDC(0);
end;

end.

[GAGARIN-NEW]

Я уже делал такую штуку .. причём редактор а не только 1конкретный рисунок .. восполлзуйся поиском ... вроде вылаживал ихсдоники ...
ЗЫ только я не распылителем рисовал ...

Пример готового в вложении