function GetTaskBarHeight: Integer;
var
R: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
result := R.bottom - R.Top;
end;
function GetTaskBarHeight: Integer;
var
R: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
result := R.bottom - R.Top;
end;