Fórum Veja aqui como bloqear o Botão Iniciar do Win XP #211517

04/02/2004

0

Delphi

Esta é uma rotína útil mas perigosa para desativar o botão iniciar do xp (Não testei em outras versões).
O problema é que ele só será restaurado quando reiniciar o windows, (Se alguém descobrir como resolver esta falha me avise, sim...)

#Rotina

PostMessage(FindWindowEx(FindWindow(´Shell_TrayWnd´,nil),0,´Button´,nil),WM _CLOSE,0,0);


Aurino003

Aurino003

Responder

Posts

04/02/2004

Otto

Esta é uma rotína útil mas perigosa para desativar o botão iniciar do xp (Não testei em outras versões). O problema é que ele só será restaurado quando reiniciar o windows, (Se alguém descobrir como resolver esta falha me avise, sim...) #Rotina PostMessage(FindWindowEx(FindWindow(´Shell_TrayWnd´,nil),0,´Button´,nil),WM _CLOSE,0,0);



Amigo,

nao uso o winxp, mas, procuro tb por essa rotina. Funfo blz... mas, ja tentou trocar o wm_close por wm_hide pra ver se funciona?! e pra voltar ao normal da um show... será que pega?!


Responder

Gostei + 0

04/02/2004

Fabio.hc

Tente assim:

var
  Form1: TForm1;
  taskbarhandle,
  buttonhandle : HWND;

procedure TForm1.EsconderClick(Sender: TObject);
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}
end;

procedure TForm1.MostarClick(Sender: TObject);
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   ShowWindow(buttonhandle, SW_RESTORE) {mostra o botão}
end;



Responder

Gostei + 0

04/02/2004

Ltres

Tente assim: 
var
  Form1: TForm1;
  taskbarhandle,
  buttonhandle : HWND;

procedure TForm1.EsconderClick(Sender: TObject);
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}
end;

procedure TForm1.MostarClick(Sender: TObject);
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   ShowWindow(buttonhandle, SW_RESTORE) {mostra o botão}
end;


Perfeito :shock: Simplesmete perfeito!


Responder

Gostei + 0

08/03/2004

Poeta Noturno

Acho mais fácil ainda

EnableWindow(FindWindowEx(FindWindow(´Shell_TrayWnd´, nil), 0, ´Button´, nil), false);

Para habilitar novamente, é só colocar true no lugar de false

Um abraço

Poeta Noturno


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar