procedure TFormHandler.SlideoutForm;
var
NotifyWndScreenCoord : TRect;
ParentWndScreenCoord : TRect;
begin
SetWindowLong(TaskbarForm.Handle, GWL_STYLE, WS_CHILD);
ParentWnd := FindWindow('Shell_TrayWnd', '');
ParentWnd := FindWindowEx(ParentWnd, 0, 'ReBarWindow32', nil);
Windows.SetParent(TaskbarForm.Handle, ParentWnd);
GetWindowRect(ParentWnd, ParentWndScreenCoord);
TaskbarForm.Top:=4;
TaskbarForm.Left:=ParentWndScreenCoord.Right-ParentWndScreenCoord.Left-TaskbarForm.Width;
TaskbarForm.show;
TaskbarForm.update;
NotifyWnd := FindWindowEx(ParentWnd, 0, 'MSTaskSwWClass', nil);
GetWindowRect(NotifyWnd, NotifyWndScreenCoord);
MoveCoord.x:=NotifyWndScreenCoord.Left-ParentWndScreenCoord.Left;
MoveCoord.y:=0;
MoveCoord.width:=NotifyWndScreenCoord.Right-NotifyWndScreenCoord.Left-TaskbarForm.Width;
MoveCoord.height:=NotifyWndScreenCoord.Bottom-NotifyWndScreenCoord.Top;
MoveWindow(NotifyWnd, MoveCoord.x, MoveCoord.y, MoveCoord.width,
MoveCoord.height, true);
end;