有什么函数可以得到桌面区大小和得到任务栏的高度？

Question

有什么函数可以得到桌面区大小和得到任务栏的高度？

Answer 1

任务栏的高度？uses shellapi;
procedure TForm1.Button1Click(Sender: TObject); 
var 
abd:TAppBarData; 
begin 
abd.cbSize:=sizeof(abd); 
SHAppBarMessage(ABM_GETTASKBARPOS,abd); 
Caption:=IntToStr(abd.rc.Bottom-abd.rc.Top); 
end;

Answer 2

你看看Screen的帮助就会全明白的

Answer 3

Screen.Height - Screen.WorkAreaHeight

Answer 4

得到桌面区的大小，你可以试着用这个API函数：
SystemParametersInfo；具体使用如下：var
  ARect:TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@ARect,0);
  {其中 ARect 就包含了你所要的桌面区的大小}
end;你试试看吧！

Answer 5

用Screen中的方法和属性就可以操作了，包括多显示器问题，DELPHI中已经将其封装好了，不用调用什么API。
它在Forms单元中定义，可以直接使用。