Hallo,
mit dem Code wird einen Text auf PC-Desktop gezeichnet:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
TransText: string;
begin
TransText:='Hallo';
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clwhite;
MyCanvas.Font.Name := 'Arial';
MyCanvas.Font.Size := 80;
SetBkMode(MyCanvas.Handle,TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(100,100,TransText);
end;
Ich möchte den Text aber nur auf bestimmte Farbe in Desktop zeichnen
Wer weiß was
