본문 바로가기
삽질/Delphi

[Delphi] 작업표시줄 위치 찾기

by 푸딩s 2013. 7. 22.



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;


댓글