Fórum Bloquear Desktop #167095
30/06/2003
0
Seguinte...
Já tenho diversas funções, como, Travar tecas de atalho (alt+f4, crtl+alt+del, crtl+ESC, etc.), Capturar tela do cliente, esconder ícones do desktop, esconder taskbar... em fim, tenho várias rotinas prontas, e prometo postar todas elas aqui, quando tudo estiver 100¬ funcionando.
Só está faltando uma (eu acho), a de bloquear o menu pop-up que aparece, ao clicar com o botão direito do mouse no desktop (aquele menu que dá acesso a criar arquivos específicos, e as propriedades de vídeo).
Digo e repito, após ter a coleção completa, de todas as funções, publicarei elas, de forma simples e organizada, ou até mesmo, desenvolvo um componente para isso (free, claro).
Abração a todos os irmãos (e irmãs) delphianos.
Rabitz
Rabitz
Curtir tópico
+ 0Posts
30/06/2003
Rabitz
ah, e por favor, não estou enteressado em comprar nada pronto, meu motivo de adesão e participação no fórum é único, o de APRENDER, e não de copiar.
Espero que entendam.
Rabitz
Gostei + 0
01/07/2003
Rabitz
já que se pode fazer de tudo, até esconder os ícones do desktop, esconder a barra de tarefas, desativar teclas... bem, muitas coisas... imagino que deve ser ´moleza´...
Obrigados a todos.
Rabitz
Gostei + 0
04/07/2003
Vmotta
Chave:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\
entre na chave acima e crie esse valor DWord:
NoViewContextMenu
com valor igual a 1
é necessário reiniciar o micro para atualizazr o registro ok?
espero ter ajudado, qq dúvida me mande um e-mail
T+
Vitor <vmotta@eep.br>
Gostei + 0
04/07/2003
Zoom
Se puder me ajudar mande-me estas funções pro meu mail andreluiz.cerqueira@bol.com.br
Gostei + 0
05/07/2003
Kroki
Veja exemplo simples do teste dos códigos(exceto a parte do registro que ví agora).;
[url]http://www.kroki.hpg.com.br/dwon/Ruindows.zip[/url]
Gostei + 0
05/07/2003
Kroki
272 - Esconder icones do desktop
ShowWindow(FindWindow(nil,´Program Manager´),SW_HIDE);
Para mostrar :
ShowWindow(FindWindow(nil,´Program Manager´),SW_SHOW);
163 - AutoOcultar a barra de tarefas
Ocultar.......
ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_HIDE);
Mostrar.....
ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_SHOWNORMAL);
Voltar como Estava.....
ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_RESTORE);
007 - Desabilitar Teclas Ctrl+Alt+Del
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)