[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

const
  WM_MOUSEMOVE = $0200;

function GetClientRect(hWnd: HWND; out lpRect: TRect): BOOL;
  external 'GetClientRect@user32.dll stdcall';
function FindWindowEx(hwndParent: HWND; hwndChildAfter: HWND;
  lpszClass: string; lpszWindow: string): HWND;
  external 'FindWindowEx{#AW}@user32.dll stdcall';

procedure CleanSystemTray;
var
  R: TRect;
  X: Integer;
  Y: Integer;
  SysTray: HWND;
  SysPager: HWND;
  Container: HWND;
  NotifyArea: HWND;
begin
  Container := FindWindowEx(0, 0, 'Shell_TrayWnd', '');
  SysTray := FindWindowEx(Container, 0, 'TrayNotifyWnd', '');
  SysPager := FindWindowEx(SysTray, 0, 'SysPager', '');
  NotifyArea := FindWindowEx(SysPager, 0, 'ToolbarWindow32', 'Notification Area');

  GetClientRect(NotifyArea, R);

  X := 0;
  Y := 0;
  while X < R.Right do
  begin
    while Y < R.Bottom do
    begin
      SendMessage(NotifyArea, WM_MOUSEMOVE, 0, (Y shl 16) + X);
      Y := Y + 5;
    end;
    X := X + 5;
  end;
end;