Canvas und der Desktop

[chaosben]

Quick and Dirty um auf den "Desktop" zu malen:

Delphi-Quellcode:

var
  h : HWND;
  c : TCanvas;
begin
  h:=FindWindow('Progman',nil);
  h:=FindWindowEx(h,0,'SHELLDLL_DefView',nil);
  h:=FindWindowEx(h,0,'SysListView32',nil);
  c:=TCanvas.Create;
  c.Handle:=GetDc(h);
  c.Pen.Color:=clRed;
  c.TextOut(10,10,'HehOsdffsdfsdsdf');
end;