Delphi下QQ窗体自动隐藏探索--3（转帖）

--3导读：
Data);
case AppBarData.uEdge of
ABE_TOP : begin
Cur_Top := AppBarData.rc.Bottom + 1;
Cur_Bottom := Screen.Height - 1;
end;
ABE_LEFT : begin
Cur_Top := 1;
Cur_Bottom := Screen.Height - 1;
end;
ABE_RIGHT : begin
Cur_Top := 1;
Cur_Bottom := Screen.Height - 1;
end;
ABE_BOTTOM : begin
Cur_Top := 1;
Cur_Bottom:=Screen.Height -
(AppBarData.rc.Bottom - AppBarData.
rc.Top) - 1;
end;
end;
end;
end; SetBarHeight用于计算矩形高度，计算后的结果通过Cur_Top和Cur_Bottom两个全局变量传递给矩形的Top和Bottom参数。 在该过程中使用了一个Windows API 函数SHAppBarMessage。SHAppBarMessage 的作用是向系统传递系统工具栏消息，其函数原型为： WINSHELLAPI UINT APIENTRY SHAppBarMessage(DWORD dwMessage,PAPPBARDATA pData); 其中dwMessage 是发送给系统的工具栏消息； pData是指向PAPPBARDATA结构的指针，PAPPBARDATA结构返回的内容依据发出的消息而定。 在过程中，我们首先传递ABM_GETSTATE参数去获取系统工具栏的状态是自动隐藏还是