czyszczenie canvasa pulpitu

0

jak zrobić coś takiego:
tworze canvasa na pulpit: Canvas1:=TCanvas.Create;
Canvas1.Handle:=GetDC(0);
rysuję sobie po pulpicie
a potem chciałbym aby to co narysowałem zniknęło
ktoś wie jak to zrobić?

//problem..nie jak zrobic..ale ile przy tym piwa wypic ;P

0

Witam wszystkich na forum.

Najprościej odśwież pulpit.
Najlepiej tak:

procedure OdswiezPulpit;
var 
 hDesktop: HWND;
begin 
 hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
   'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
 PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
 PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

Ta procedura sprawi że zasymuluje wciśnięcie klawisza F5 (odśwież) na pulpicie.

Pozdrawiam Grupa Noribo Częstochowa [cya]

1 użytkowników online, w tym zalogowanych: 0, gości: 1