Delphi中三種方法擷取Windows工作列的高度

標籤：

第一種：需要引用Windows單元

 

[delphi] view plain copy 

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

 

 

第二種：需要引用Windows單元

 

[delphi] view plain copy 

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單元

 

[delphi] view plain copy 

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;  

 

http://blog.csdn.net/chaijunkun/article/details/5577285

Delphi中三種方法擷取Windows工作列的高度