var
r:Rect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@r,0);
Showmessage(inttostr(Screen.Height-(r.Buttom-r.Top)));
end;
var
r:Rect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@r,0);
Showmessage(inttostr(Screen.Height-(r.Buttom-r.Top)));
end;