[Medio]Comandos Malignos no Delphi
Abrindo CD - Rom
Adicione MMSystem nas Uses e adicione o código no evento OnClick de um Button:
Citação:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
Fechar CD - Rom
Adicione MMSystem nas Uses e adicione o código no evento OnClick de um Button:
Citação:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Inverter Botões do Mouse
Adicione um Button e no evento OnClick dele ponha:
Citação:
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, NIL, 0);
Normalizar o Mouse
Adicione um Button e no evento OnClick ponha:
Citação:
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, NIL, 0);
Esconder Relógio
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('s hell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayC lockWClass',nil),0);
Mostrar Relógio
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('s hell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayC lockWClass',nil),1);
Esconder Menu Iniciar
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),0);
Mostrar Menu Iniciar
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),1);
Travar Iniciar
Adicione um Button e no evento OnClick ponha:
Citação:
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),False);
Destravar Iniciar
Adicione um Button e no evento OnClick ponha:
Citação:
EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),True);
Esconder Ícones do Desktop
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
Mostrar Ícones do Desktop
Adicione um Button e no evento OnClick ponha:
Citação:
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
Desativar Firewal do Windows
Adicione um Button e no evento OnClick ponha:
Citação:
WinExec(PAnsiChar('netsh firewall set opmode disable'), 0);
Ativar Firewal do Windows
Adicione um Button e no evento OnClick ponha:
Citação:
WinExec(PAnsiChar('netsh firewall set opmode enable'), 1);
Creditos:
FusioN
Kane