請問有辦法知道 'Shell_TrayWnd' 在畫面上的 上、下、左或右嗎???

好久以前的問題....  不過還是寫個小範例來解決這個問題. 利用 findwindow 先找出 Shell_TrayWnd 的 handle 後, 再利用 SHAppBarMessage 來取得 AppBar 的資料即可!!    記得要使用 ShellAPI 哦~ 參考資料: http://bdn.borland.com/article/0,1410,26977,00.html    

procedure TForm1.Button3Click(Sender: TObject);
var
  sthandle: HWND;
  abd: TAppBarData;
begin
  sthandle := FindWindow('Shell_TrayWnd', nil);
  if sthandle <> 0 then
  begin
    abd.cbSize := SizeOf(abd);
    if SHAppBarMessage(ABM_GETTASKBARPOS, abd) = 0 then
      raise Exception.Create('SHAppBarMessage returned false when trying to find the Task Bar''s position');
    // 0 for left, 1 for top, 2 for right, 3 for bottom
    case abd.uEdge of
      0: ShowMessage('AppBar is on left side');
      1: ShowMessage('AppBar is on top side');
      2: ShowMessage('AppBar is on right side');
      3: ShowMessage('AppBar is on bottom side');
      else
         ShowMessage('AppBar is unknown position!');
    end;
  end;
end;

感謝timhuang兄 想不到這麼久的問題還有人回答我 真是太感動了 另外衍生的問題是 若Shell_TrayWnd位置不是設定為bottom的話 如何強迫他變為bottom呢?

請參考這篇:    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/messages/abm_setpos.asp    利用 SHAppBarMessage(ABM_SETPOS, pabd);  並將傳入的 TAppBarData 的 uEdge 設定為 3 即可.    弟後來測試的結果是這樣設定是給 appbar 用的. 不能給 taskbar 一樣的操作, 還得試試看其他的方法才行 發表人 -