3、具体函数为: function TfrmMain.getrect(Sender:Tobject;index:Integer):Trect; const TCM_GETITEMRECT = $130A; var RE:Trect; i:Integer; begin SendMessage(pgTaskBar.Handle, TCM_GETITEMRECT, I, LPARAM(@Re)); result:=Re; end;
----------------------------------------------
-