Delphi 获取屏幕分辨率与Windows任务栏的高度

屏幕分辨率:

  宽: screen.WorkAreaWidth;
  高: screen.WorkAreaHeight;

第一种：需要引用Windows单元

1. ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));  

第二种：需要引用Windows单元

1. function GetSystemTaskBarHeight:Integer;  
2. var  
3.   R:TRect;  
4. begin  
5.   SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);  
6.   Result:=Screen.Height-R.Bottom;  
7. end;  

第三种：要引用ShellAPI单元

1. function GetTaskBarRect: Integer;  
2. var  
3.   TBData: TAPPBARDATA;  
4. begin  
5.   TBData.cbSize := SizeOf(TAPPBARDATA);  
6.   SHAppBarMessage(ABM_GETTASKBARPOS, TBData);  
7.   Result   :=Screen.Height-TBData.rc.Top;  
8. end;