Fórum Fazer que um form ocupe espaço tipo barra de tarefas #343235

Function EnumWindowsProc (Wnd: HWND; lb: TStringList): BOOL; stdcall;
  var caption: Array [0..128] of Char;
begin
  Result := True;
  if IsWindowVisible(Wnd) and
  ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
  (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) =   GetDesktopWindow))and
  ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
  then
  begin
    SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
    lb.Add ( caption);
  end;
end;

procedure TFormMenu.Timer1Timer(Sender: TObject);
var
  hnd : Thandle;
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
  r,r1:TRect;
  x:integer;
begin
  ls.Clear;
  //Pega o handle e o rect da Barra de tarefas
  StrPCopy(@wndClass[0],´Shell_TrayWnd´);
  wndHandle := FindWindow(@wndClass[0], nil);
  GetWindowRect(wndHandle,r1);

  //Coloca as aplicações dentro da string list
  EnumWindows( @EnumWindowsProc, integer( ls ));
  for x := 0 to Ls.Count - 1 do
  begin
    //Pega o Handle e o rect do form do programa
    hnd := FindWindow(nil,pchar(ls.Strings[x]));
    GetWindowRect(hnd,r);

    
    if Hnd > 0 then
    //Verifica se está maximizado   
    if isZoomed(hnd) then
    begin
      {Form está maximizado}
      if r.Bottom <>  r1.Top    - Height then
      SetWindowPos(hnd,HWND_TOP,0,0,iW , r1.Top    - Height,SWP_SHOWWINDOW);
    end
    { Form1 está maximizado }
    else
    begin

    end
  end;
end;

procedure TFormMenu.FormCreate(Sender: TObject);
begin
  ls := TStringList.Create;

  iW := Screen.Width;
  iH := Screen.Height;
end;