Рисуем прямо на рабочем столе.

Сегодня мы будем рисовать с помощью Canvas на рабочем столе.
Итак, для начала создадим новый проект и перетащим на форму 3 компонента Button.


Сначала добавим переменную в раздел  var:

  Canv: TCanvas;

Теперь создадим процедуру на событиие OnCreate:

 procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Canv := TCanvas.Create; 
  Canv.Handle := GetWindowDC(0); 
end;

А для события OnDestroy напишем так:

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  Canv.Free; 
end;

 По нажатию на Button1 мы будем рисовать рамку:

 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Canv.pen.Color := clred; 
  Canv.pen.Width := 20; 
  Canv.moveto(Screen.Width, 2); 
  Canv.lineto(2, 2); 
  Canv.lineto(2, Screen.Height); 
  Canv.lineto(Screen.Width, Screen.Height); 
  Canv.lineto(Screen.Width, 2); 
end;

 По нажатию на Button2 напишем на экране текст:

 procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Canv.Font.Name   := 'Arial'; 
  Canv.Font.Size   := 55; 
  Canv.Font.Color  := clgreen; 
  Canv.Brush.Style := bsclear; 
  Canv.textout(240, Screen.Height div 2 - 30, 'Hello to Screen !'); 
end;

И наконец, щелчок по Button3 приведет к загрузке изображения(путь пропишите свой):

procedure TForm1.Button3Click(Sender: TObject); 
var 
  myBitmap: TBitmap; 
begin 
  myBitmap := TBitmap.Create; 
  try 
    myBitmap.LoadFromFile('MyImage.bmp'); 
    Canv.draw(100, 100, myBitmap); 
  finally 
    myBitmap.Free; 
  end; 
end;

На этом всё, компилируем и рисуем:)

Удачи!  SourceExpert.Blogspot.com