|,,∧　　ソース各のがﾒﾝﾄﾞかったもので。
|Дﾟ彡 　つい。
|⊂ﾐ
uses ShellAPI, DateUtils;
function PointEqual(A, B: TPoint): Boolean;
begin
　Result := (A.X = B.X) and (A.Y = B.Y);
end;
function PointInRect(Point1: TPoint; Rect1: TRect): Boolean;
begin
　Result := (Rect1.Left <= Point1.X) and (Point1.X <= Rect1.Right)
　　　　　　and (Rect1.Top <= Point1.Y) and (Point1.Y <= Rect1.Bottom);
end;
function TaskBarRect: TRect;
var apbData : TAPPBARDATA;
begin
　apbData.cbSize := SizeOf(TAPPBARDATA);
　SHAppBarMessage(ABM_GETTASKBARPOS, apbData);
　Result := apbData.rc;
end;