第一种:需要引用Windows单元 ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION))); 第二种:需要引用Windows单元 function GetSystemTaskBarHeight:Integer; var R:TRect; begin SystemParametersInfo(SPI_GETWORKARE…