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

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;