»ñÈ¡ÈÎÎñÀ¸¸ß¶ÈµÄº¯Êý

function GetTaskBarHeight: Integer;

var

R: TRect;

begin

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

result := R.bottom - R.Top;

end;