Transparenten Text einfach auf dem Bildschirm ausgeben

[Daniel B]

Hallo,

hiermit kann man einfach Text direkt auf dem Desktop "Malen", es ist ein transparenter Text.

Delphi-Quellcode:

procedure WriteText(TransText: string); 
var 
  MyHand: HWND; 
  MyDc: HDC; 
  MyCanvas: TCanvas; 
begin 
  MyHand := GetDesktopWindow; 
  MyDc := GetWindowDC(MyHand); 
  MyCanvas := TCanvas.Create; 
  MyCanvas.Handle := MyDC; 
  BeginPath(MyCanvas.Handle); 
  MyCanvas.Font.Color := clRed; 
  MyCanvas.Font.Name := 'Courier New'; 
  MyCanvas.Font.Size := 30;
  SetBkMode(MyCanvas.Handle,TRANSPARENT);
  EndPath(MyCanvas.Handle);
  MyCanvas.TextOut(100, 100, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
end;


procedure TForm1.Button12Click(Sender: TObject);
begin
  WriteText('http://delphipraxis.net');
end;

Grüsse, Daniel