[Delphi] Jak malować po pulpicie ?

Jak można rysować po pulpicie ? Doszedłem do tego jaką klase ma pulpit i znalazłem jego uchwyt i canvas ale przy próbie rysowania czegokolwiek wyświetla się error o treści "Nie jest dozwolona operacja rysowania" czy coś w tym guście. [glowa]

na http://www.torry.net jest komponent do malowania po pulpicie, poszukaj tam w dzialem komponenty GRAFIKA (nazwy niestety juz nie pamietam ;-| )

Spróbuj tak:

var
H:Hwnd;
begin
Canvas.Handle:=GetDC(H);
Canvas.Rectangle(10,10,100,100);
end.

Testowałem. U mnie działa [cygaro]

var
DC: HDC;
C: TCanvas;
begin
C:=TCancas.Create;
DC:=GetDC(GetDesktopWindow);
C.Handle:=DC;
//
ReleaseDC(GetDesktopWindow, DC);
C.Free;
end