Fórum matei Iniciar, como ressussito ele?!!! #183999
24/09/2003
0
um colega aqui do forum me passou a seguinte rotina
PostMessage(FindWindowEx(FindWindow(´Shell_TrayWnd´,nil),0,´Button´,nil),WM_CLOSE,0,0);
ela mata o botao iniciar, mas como eu poderia reverte-la!!! mesmo no XP ela funcionou tbm!!! mas n faço ideia em como eu poderia inverter essa rotina!!!
se alguem souber, por favor me ajuda, e ai ja terei todos os codigos de desabilitacao de combinacoes de teclas do ´mau´ rsrs(Ctrl+Alt+Del, etc, etc, etc, etc...)ai jogos todas aqui num unico topico e todas funcionando no XP!!!
aquele abraco galera
por favor se alguem pude rme ajudar, agente vai pensando junto...
viper0!!! :evil:
Viper0
Curtir tópico
+ 0Posts
24/09/2003
Barcelos
Eu te disse que a rotina tinha um defeito :P ....
Eu tenho outras para apenas desabilitar o botão iniciar, mas a tecla Windows continua funcionando ...
Vou pesquisar melhor (eu usei o WinSight32 pra rastrear as mensagens) , e se encontrar, posto aqui no fórum.
Se você achar antes, entra em contato.
Barcelos
osbarcelos@hotmail.com
Gostei + 0
24/09/2003
Mmtoor
Cuidado com o que te passam.
Dê um scanreg /restore
MMTOOR2003
Gostei + 0
24/09/2003
Barcelos
A dica não é prejudicial, o fato é que não conseguimos fazer o iniciar voltar sem reiniciar o computador.
Se você achar uma maneira, por favor diga-nos como.
Toda ajuda é bem vinda.
PS. Não há alteração no registro.
Barcelos
osbarcelos@hotmail.com
Gostei + 0
24/09/2003
Viper0
entao barcelos, essa de esconder, vc me passou(acho q foi vc mesmo, ne me lembro bem, e q esses dias horas durmidas e luxo...rsrs...)mas voltando, esse de esconder apenas esta testado aqui, mas a tecla win ainda fica com funcao normal...
eu to me matando em cima dessa de uma linha, n e possivel, ela tem q ter algo reverso...ai mmtoor, da um help, ve se vc num tem um tempinho pra ver se conssegue reverter essa rotinha aqui:
#
PostMessage(FindWindowEx(FindWindow(´Shell_TrayWnd´,nil),0,´Button´,nil),WM_CLOSE,0,0);
bom galera, enquanto isso vamo pro ringue apanha mai sum pouco...
aquele abraco
valew pelo tempo dimponibilizado
viper0!!! :evil:
Gostei + 0
24/09/2003
Alves
Espero ter ajudado
Abraços a Todos
Gostei + 0
24/09/2003
Alves
Voces estão falando apenas do Botão Iniciar do Windows.
Gostei + 0
24/09/2003
Viper0
ai alves, valew pela ajuda, mas tipo assim, da uma olhada naquele codigo de uma linha...ele mata o botao iniciar, e ssim a tecla win n tem funcao, e isso q eu preciso , desabilitar a tecla win, entao com essa rotinha, a tecla win perde sua funcao, fica inativa...so q n da pra voltar esse botao iniciar, so se reiniciar a maquina, ou no xp fazer logoff>login...entendeu??!!
LEMBRANDO GALERA, O OBJETIVO DESTE TOPICO E:
desabilitar a tecla win E/OU reverter seguinte rotina:
#
PostMessage(FindWindowEx(FindWindow(´Shell_TrayWnd´,nil),0,´Button´,nil),WM_CLOSE,0,0);
um grande abraco galera
valew pelo apoio
viper0!!! :evil:
Gostei + 0
27/09/2003
Clebertom
Eu to com o mesmo problema preciso desabilitar os botoes especiais e limitar o acesso ao windows.
Até mais,
Cleber
Gostei + 0
27/09/2003
Clebertom
Viper!!
Mata o Processo explorer.exe, que automaticamente o windows se recompoe e traz o iniciar de volta.
peguei aqui mesmo esse codigo pra matar o processo pelo nome:
function Kill(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
Gostei + 0