hTaskbar := FindWindow('Shell_TrayWnd', Nil );

Источник: Дельфи. Вокруг да около.