Fórum Como esconder a barra de ferramentas (botão INICIAR)? #265269
13/01/2005
0
Olá galera, gostaria de saber como faço para esconder/mostrar a barra de ferramentas, aquela que tem o botão INICIAR, onde fica os programas abertos sendo utilizados, o relógio, os icones do Tray, e por ai vai... nem sei como chama essa barra... aceito qualquer ajuda.
Obrigado,
Obrigado,
Jc
Curtir tópico
+ 0
Responder
Posts
13/01/2005
Adriano Santos
[color=red:66660a309f]
Ocultar
[/color:66660a309f]
procedure TForm1.Button1Click(Sender: TObject);
var
Janela: HWND;
begin
Janela := FindWindow(´Shell_TrayWnd´, nil);
If Janela > 0 Then ShowWindow(Janela, SW_HIDE);
end;
[color=red:66660a309f]
Visualiza
[/color:66660a309f]
procedure TForm1.Button2Click(Sender: TObject);
var
Janela: HWND;
begin
Janela := FindWindow(´Shell_TrayWnd´, nil);
if Janela > 0 then
ShowWindow(Janela, SW_SHOW);
end;
Ocultar
[/color:66660a309f]
procedure TForm1.Button1Click(Sender: TObject);
var
Janela: HWND;
begin
Janela := FindWindow(´Shell_TrayWnd´, nil);
If Janela > 0 Then ShowWindow(Janela, SW_HIDE);
end;
[color=red:66660a309f]
Visualiza
[/color:66660a309f]
procedure TForm1.Button2Click(Sender: TObject);
var
Janela: HWND;
begin
Janela := FindWindow(´Shell_TrayWnd´, nil);
if Janela > 0 then
ShowWindow(Janela, SW_SHOW);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)