[DELPHI] ESCONDER OU MOSTRAR A BARRA DE TAREFAS DO WINDOWS

//uses windows

procedure TaskBar(Visible: Boolean); 

var

   handle : THandle; 

   class : array[0..50] of Char;

begin 

   StrPCopy(@class[0],'Shell_TrayWnd'); 

   handle := FindWindow(@class[0], nil); 

   If (Visible = True) Then

   begin 

      ShowWindow(handle, SW_RESTORE); {Mostra a barra de tarefas} 

   end

   else

   begin 

      ShowWindow(handle, SW_HIDE); {Esconde a barra de tarefas} 

   end; 

end;

procedure TfrmWindows.btnMostrarTaskBarClick(Sender: TObject);

begin

  TaskBar(True);

end;

procedure TfrmWindows.btnEsconderTaskBarClick(Sender: TObject);

begin

  TaskBar(False);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】