請問如何得知滑鼠移入、移出系統工作列 (視窗最底下的[開始]工作列) ?
謝謝

這是一個笨方法，使用SHAppBarMessage() API去取得TaskBar的Rect，接著再用GetCursorPos()取得滑鼠在整個Screen的位置，最後
就判斷滑鼠的位置是否在取到的Rect中，整個Catch滑鼠位置改變是用簡單的Timer元件，你也使用其它方式讓系統通知你滑鼠的位置改變
的CALLBACK函數，再由該函數實做。

procedure TForm1.Timer1Timer(Sender: TObject);
var
AppBarData: TAppBarData;
CursorPos: TPoint;
begin
ZeroMemory(@AppBarData, sizeof(TAppBarData));
AppBarData.cbSize := sizeof(TAppBarData);
AppBarData.hWnd := Handle;
SHAppBarMessage(ABM_GETTASKBARPOS, AppBarData);

ZeroMemory(@CursorPos, sizeof(CursorPos));
GetCursorPos(CursorPos);

if ((CursorPos.x >= AppBarData.rc.Left) and (CursorPos.x <= AppBarData.rc.Right) and
(CursorPos.y >= AppBarData.rc.Top) and (CursorPos.y <= AppBarData.rc.Bottom)) then
begin
//滑鼠移入工作列
OutputDebugString(PChar('滑鼠移入工作列'));
end
else
begin
//滑鼠移出工作列
OutputDebugString(PChar('滑鼠移出工作列'));
end;
end;

感謝 Cyril 的答案

我後來在web查了好多資料, 參照不同的作法

:=(,,,);

:=(,,,);

:=(,,,);

:=(,,,);
轉貼至http://www.52delphi.com/list.asp?id=87

這樣的方法可以取得系統工作列上的按鈕, 後來我改用以下的方式再加上MouseHook 就行了

function TForm1.TaskmanWindow: HWND;
var hShellTrayWnd:HWND;
begin
hShellTrayWnd := FindWindow('Shell_TrayWnd', nil);
Result := hShellTrayWnd;
end;

function TForm1.fn_MouseInToolBar(var hdWindow:HWND):Boolean;
var hdParentWin:HWND;
begin
if hdWindow=0 then //桌面
begin
Result := False;
Exit;
end;
//
Result := (hdWindow=TaskmanWindow);
if not Result then
begin
hdParentWin := GetParent(hdWindow);
Result := fn_MouseInToolBar(hdParentWin);
end;
end;