Veja aqui como bloqear o Botão Iniciar do Win XP

Delphi

04/02/2004

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

Curtidas 0

Respostas

Otto

Otto

04/02/2004

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?!


GOSTEI 0
Fabio.hc

Fabio.hc

04/02/2004

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;



GOSTEI 0
Ltres

Ltres

04/02/2004

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!


GOSTEI 0
Poeta Noturno

Poeta Noturno

04/02/2004

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


GOSTEI 0
POSTAR