Taskleiste aktualisieren

[endeffects]

so sieht mein versuch bisher aus,
allerdings passiert da nichts

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
  wnd := FindWindowEx(wnd, 0, 'SysPager', nil);
  wnd := FindWindowEx(wnd, 0, 'ToolbarWindow32', nil);
  if wnd <> 0 then
    sendmessage(wnd,WM_PAINT,0,0);