How to draw on the Windows desktop #198

procedure TForm1.Button1Click(Sender: TObject);
const
  (* our text *)
  CTHE_TEXT = 'I Love Delphigeist';
var
  (* we need a canvas object *)
  theCanvas: TCanvas;
begin
  (* create theCanvas *)
  theCanvas := TCanvas.Create;
  (* get Desktop canvas handle *)
  theCanvas.Handle := GetWindowDC(0);
  (* we don't want a rectangle behind our text this is optional you can comment
  next line with "//" and see how it looks *)
  theCanvas.Brush.Style := bsClear;
  (* set the font name *)
  theCanvas.Font.Name := 'Courier New';
  (* we want it bold *)
  theCanvas.Font.Style := [fsBold];
  (* set the size *)
  theCanvas.Font.Size := 60;
  (* lime looks good if your wallpaper has dark colors *)
  theCanvas.Font.Color := clLime;
  (* draw the text *)
  theCanvas.TextOut(50, 50, CTHE_TEXT);
  (* clear allocated memory to our theCanvas object *)
  FreeAndNil(theCanvas);
  (* that's it *)
end;

  theCanvas.TextOut(50, 50, CTHE_TEXT);

  (* create a TBitmap named thisBitmap and load image into it *)
  (* now do the drawing *)
  theCanvas.Draw(50, 50, thisBitmap);