إخفاء/إظهار شريط المهام برمجيا

هذا الكود البسيط يعمل على إخفاء/إظهار شريط المهام

procedure HideUnhideTaskbar(Show: Boolean);

var

TaskBarWnd: HWND;

begin

TaskBarWnd:= FindWindow('Shell_Traywnd', nil);

if Show then

SetWindowPos(TaskbarWnd,0, 0, 0, 0, 0, SWP_HIDEWINDOW)

else

SetWindowPos(TaskbarWnd,0, 0, 0, 0, 0, SWP_SHOWWINDOW)

end;