Barra de Tarefas

Question

Como posso esconder a barra de tarefas quando a aplicacao estiver ativada ou como posso acionar o ocultar automaticamente do windows.Tem como fazer isso pelo Delphi 6...

Fabio.hc · Answer

Tente assim:[code:1:bf5adddc9f]procedure TForm1.Button1Click(Sender: TObject);begin   // Ocultar.......   ShowWindow(FindWindow(�Shell_TrayWnd�, nil), SW_HIDE);end;procedure TForm1.Button2Click(Sender: TObject);begin   //Mostrar.....   ShowWindow(FindWindow(�Shell_TrayWnd�, nil), SW_SHOWNORMAL);end;[/code:1:bf5adddc9f]...

Salupe · Answer

Obrigado pela ajuda.Achei uma parecida, mas que j� fica em uma function.O problema � que se o usu�rio fizer um ALT + TAB, por exemplo ele vai continuar com a barra de tarefas escondida, assim como a tecla que abre o botao iniciar do windows.N�o quero desabilitar essas teclas, mas preciso conseguir que se o programa perder o foco eu possa habilitar a Barra de Tarefas....

Fabio.hc · Answer

Vc pode pegar o alt + tab aqui:[code:1:0204628ad3]procedure TForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);begin   ShowWindow(FindWindow(�Shell_TrayWnd�, nil), SW_SHOWNORMAL);end;[/code:1:0204628ad3]S� falta agora quando pressionar alt + tab e voltar para o programa com a barra de tarefa  oculta....

Salupe · Answer

Colocando no short cut ele Mostra a Barra a cada tecla digitada, tem outra forma...

Fabio.hc · Answer

Aqui testa se foi pressionado a tecla Alt.

procedure TForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); 
begin 
   if (Msg.CharCode = VK_MENU) then
      ShowWindow(FindWindow(�Shell_TrayWnd�, nil), SW_SHOWNORMAL); 
end;

Mas n�o � a melhor soulo��o.

Salupe · Answer

N�o existe alguma forma de testar a tecla que abre o botao iniciar e o ctrl + esc...

Luciano Fran�a · Answer

me mande um email que lhe mando um componente otimo para ocultar
a barra de tarefas do windows pela API, que vai lhe resolver todos o seu problemas.

mendonca@astornet.com.br

um forte abraco.
Luciano Fran�a.

F�rum Barra de Tarefas #211149