How to draw directly on the Windows Desktop?
Through some API functions like
To draw a text
Handle := GetDesktopWindow;
Dc := GetWindowDC(Handle) ;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := DC;
BeginPath(ACanvas.Handle) ;
ACanvas.Font.Color := clRed;
ACanvas.Font.Name := 'Tahoma';
ACanvas.Font.Size := 30;
SetBkMode(ACanvas.Handle, TRANSPARENT) ;
EndPath(ACanvas.Handle) ;
ACanvas.TextOut(0, 0, TextToDraw) ;
finally
ReleaseDC(Handle, ACanvas.Handle) ;
ACanvas.Free;
end;
Is This Answer Correct ? | 2 Yes | 2 No |
How to Get the current line number of a TMemo?
How to Write a raw string of data to the printer?
I am trying to call from Delphi and it GPFs. Whats up?
What versions of Delphi are there?
How to Determine minor version number?
How to Determine if you have Delphi v3.02 installed?
What is the tag property useful for?
How much disk space, memory, etc, do I need to run Delphi?
How to Stop TScrollbar button from blinking ?
How to display seconds, minutes, tracks of an AVI ?
How to Log in to the remote datamodule?
How to Display a bitmap on the client area of an MDI parent form?