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