Guest --Rodrigo -- Postado Dezembro 1, 2007 Denunciar Share Postado Dezembro 1, 2007 Boa tarde...alguém sabe como fazer via programação ocultar todos os icones da barra de ferramentas, aquels ao lado do relogio.Obs, não quero desabilitar a barra de ferrramentas e sim somente os icones ao lado do relogio.Se alguém puder ajudar Atenciosamente,RodrigoRodrigo Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Dezembro 3, 2007 Denunciar Share Postado Dezembro 3, 2007 Vai ai algumas dicasOcultar/exibir a barra de tarefas do WindowsInclua na seção uses: Windows { Coloque no Form dois Botões: BotaoOcultar e BotaoExibir. No evento OnClick do BotaoOcultar escreva: } procedure TForm1.BotaoOcultarClick(Sender: TObject); var Janela: HWND; begin Janela := FindWindow('Shell_TrayWnd', nil); if Janela > 0 then ShowWindow(Janela, SW_HIDE); end; { No evento OnClick do BotaoExibir escreva: } procedure TForm1.BotaoExibirClick(Sender: TObject); var Janela: HWND; begin Janela := FindWindow('Shell_TrayWnd', nil); if Janela > 0 then ShowWindow(Janela, SW_SHOW); end; { Execute e teste, clicando em ambos os botões } Observações A tarefa mais difícil é descobrir o nome de classe da janela da barra de tarefa do Windows, mas isto é fácil se você usar o TBWinName. Pegue-o no link download de www.tecnobyte.com.br. O resto é usar as APIs do Windows para manipulação de Janelas. Dica de : Daniel P. Guimarães Procure neste endereço sobre: Sobrepondo o seu Aplicativo sobre a Barra de Tarefas do Windows http://www.delphiman.com.br/blog/2006/06/ pode dar uma olhada nestes posts tambem http://forum.devmedia.com.br/viewtopic.php...fced6f88eeb7b6d http://forum.wmonline.com.br/index.php?showtopic=80096 http://www.videotexto.com.br/forum/viewtop...6cd29e89763974e Livre-se dos ícones atormentantes da barra de tarefas! http://www.explorando.viamep.com/2006/03/l...ntantes-da.html Função ocultar a Barra de Tarefas procedure SetTaskBar(Visible: Boolean); var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0],'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); If Visible = True then ShowWindow(wndHandle, SW_RESTORE) else ShowWindow(wndHandle, SW_HIDE); end; Outra Dica http://www.forumweb.com.br/foruns/index.ph...st&p=107973 procedure Tform1.EscondeBarraIniciar(Visible: Boolean); var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0],'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); if Visible=True Then ShowWindow(wndHandle, SW_RESTORE) // Mostra a barra de tarefas else ShowWindow(wndHandle, SW_HIDE); // Esconde a barra de tarefas end;Declara assim: procedure EscondeBarraIniciar(Visible: Boolean);No form principal do sistema é só chamar o procedimento: EscondeBarraIniciar(False);E quando sair do sistema: EscondeBarraIniciar(true);abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest --Rodrigo --
Boa tarde...
alguém sabe como fazer via programação ocultar todos os icones da barra de ferramentas, aquels ao lado do relogio.
Obs, não quero desabilitar a barra de ferrramentas e sim somente os icones ao lado do relogio.
Se alguém puder ajudar
Atenciosamente,
Rodrigo
Rodrigo
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.