[ecfisa]

Hola amuntsempre.

Código Delphi [-]
function TaskBarHeight: integer;
var
  Hnd: HWND;
  R: TRect;
begin
  Result:= 0;
  Hnd:= FindWindow('Shell_TrayWnd', nil);
  if Hnd <> 0 then
  begin
    GetWindowRect(Hnd, R);
    Result := R.Bottom - R.Top;
  end;
end;

Saludos.