matei Iniciar, como ressussito ele?!!!
e ae galera fmz??!!
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:
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
Curtidas 0
Respostas
Barcelos
24/09/2003
Fala viper0!!!
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
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
Mmtoor
24/09/2003
Prezado amigo:
Cuidado com o que te passam.
Dê um scanreg /restore
MMTOOR2003
Cuidado com o que te passam.
Dê um scanreg /restore
MMTOOR2003
GOSTEI 0
Barcelos
24/09/2003
MMTOOR,
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
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
Viper0
24/09/2003
e ae galera fmz?!!
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:
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
Alves
24/09/2003
Não sei se entendi direito, mas voce ker eskonder o botão inicar do windows e depois voltar??? Bom esse codigo funciona nos windows 9x no 2000 e xp não sei...
Espero ter ajudado
Abraços a Todos
procedure TForm1.Timer2Timer(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0],´Shell_TrayWnd´);
wndHandle := FindWindow(@wndClass[0], nil);
if FileExists(´c:\windows\barra.txt´) then
Begin
DeleteFile(´c:\windows\barra.txt´);
ShowWindow(wndHandle, SW_HIDE); {Esconde a barra de tarefas}
end;
if FileExists(´c:\windows\barraD.txt´) then //Troque aki por uma CheckBox, ou algo parecido.
Begin
ShowWindow(wndHandle, SW_RESTORE); {Mostra a barra de tarefas}
DeleteFile(´c:\windows\barraD.txt´);
end;
end;
Espero ter ajudado
Abraços a Todos
GOSTEI 0
Alves
24/09/2003
Putz... foi mal gente. :oops:
Voces estão falando apenas do Botão Iniciar do Windows.
Voces estão falando apenas do Botão Iniciar do Windows.
GOSTEI 0
Viper0
24/09/2003
e ai galera fmz??!!
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:
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
Clebertom
24/09/2003
Quando voce manda a mensagem WM_CLOSE voce nao escondeu o botao voce eliminou ele, porem o menu iniciar continua vivo.
Eu to com o mesmo problema preciso desabilitar os botoes especiais e limitar o acesso ao windows.
Até mais,
Cleber
Eu to com o mesmo problema preciso desabilitar os botoes especiais e limitar o acesso ao windows.
Até mais,
Cleber
GOSTEI 0
Clebertom
24/09/2003
e ai galera fmz??!!
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:
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