삽질/Delphi
[Delphi] 작업표시줄 위치 찾기
푸딩s
2013. 7. 22. 15:05
uses shellapi;
var
pData: TAppBarData;
begin
pData.hWnd := 0;
pData.cbSize := sizeof(pData);
SHAppBarMessage(ABM_GETTASKBARPOS, pData);
case pData.uEdge of
0:
ShowMessage('ABE_LEFT');
1:
ShowMessage('ABE_TOP');
2:
ShowMessage('ABE_RIGHT');
3:
ShowMessage('ABE_BOTTOM');
end;
end;