var hWnd: THandle; begin hWnd := FindWindow('Shell_TrayWnd', nil); if hWnd <> 0 Then PostMessage(hWnd, WM_COMMAND, $001A3, 0); end;