ساخت Message Alert

[Delphi 2010]

با عرض سلام و خسته نباشید

در حال ساخت فرمی هستم که مثل یاهومسنجر وقتی اتفاقی تو برنامه خودم میوفته و هر وقت بخوام اون فرم نمایش داشته بشه

تو یاهومسنجر وقتی یکی از دوستانتون آنلاین یا آفلاین بشه سمت راست پائین فرمی از پائین میاد بالا و بهتون هشدار میده

بنده میتونم اون فرم رو نمایش بدم و از پائین بیارمش بالا ولی توی هر ویندوزی اندازه TaskBar فرق داره و چطوری فرمم رو بچسبونم به TaskBar و نه پائین تر باشه نه بالاتر

ممنون میشم بنده رو راهنمایی کنید

[یوسف زالی]

سلام.
داداش که خودش این کاره هست!
این نمونه کد کمکت می کنه:


function GetDesktopWorkAreaRect: TRect;
var
Data: TAppBarData;
begin
Data.hWnd := FindWindow('Shell_TrayWnd', nil);
Data.cbSize := SizeOf(Data);
GetWindowRect(Data.hWnd, Data.rc);
Result := Rect(0, 0, Screen.Width, Screen.Height);
if (SHAppBarMessage(ABM_GETSTATE, Data) and ABS_AUTOHIDE) > 0 then
Result.Bottom := Screen.Height
else
Result.Bottom := Data.rc.Top;
end;

[Mask]

پیرو توضیحات دوست عزیزم :
برای بدست آوردن ارتفاع تسکبار (اینجوریم میشه ):


function TaskBarHeight: integer;
var
hTB: HWND; // taskbar handle
TBRect: TRect; // taskbar rectangle
begin
hTB:= FindWindow('Shell_TrayWnd', '');
if hTB = 0 then
Result := 0
else begin
GetWindowRect(hTB, TBRect);
Result := TBRect.Bottom - TBRect.Top;
end;
end;

[Delphi 2010]

عزیزم خب داداش وقت زیاد نداره و همیشه سرش شلوغ هستش