不知楼主是不是这个意思:
procedure TForm1.Button1Click(Sender: TObject);//隐藏
Var
taskbarhandle : HWND;
begin
taskbarhandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(taskbarhandle, SW_HIDE);
end;
{BRING BACK THE TASKBAR}
procedure TForm1.Button2Click(Sender: TObject);//显示
Var
taskbarhandle : HWND;
begin
taskbarhandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(taskbarhandle, SW_RESTORE);
end;