取得任务栏的高度

var

    r:Rect;

begin

    SystemParametersInfo(SPI_GETWORKAREA,0,@r,0);

    Showmessage(inttostr(Screen.Height-(r.Buttom-r.Top)));

end;