Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 1 de 1
  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    29
    Posts
    434
    Agradecido
    18
    Agradeceu
    14
    Peso da Avaliação
    23

    Padrão [Medio]Comandos Malignos no Delphi

    Abrindo CD - Rom
    Adicione MMSystem nas Uses e adicione o código no evento OnClick de um Button:

    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:

    mciSendString('Set cdaudio door closed wait', nil, 0, handle);
    Inverter Botões do Mouse
    Adicione um Button e no evento OnClick dele ponha:

    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, NIL, 0);
    Normalizar o Mouse
    Adicione um Button e no evento OnClick ponha:

    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, NIL, 0);
    Esconder Relógio
    Adicione um Button e no evento OnClick ponha:

    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:

    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:

    ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),0);
    Mostrar Menu Iniciar
    Adicione um Button e no evento OnClick ponha:

    ShowWindow(FindWindowEx(FindWindow('Shell_traywnd' ,nil),0,'Button',nil),1);
    Travar Iniciar
    Adicione um Button e no evento OnClick ponha:

    EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),False);
    Destravar Iniciar
    Adicione um Button e no evento OnClick ponha:

    EnableWindow(FindWindowEx(FindWindow('Shell_traywn d',nil),0,'Button',nil),True);
    Esconder Ícones do Desktop
    Adicione um Button e no evento OnClick ponha:

    ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
    Mostrar Ícones do Desktop
    Adicione um Button e no evento OnClick ponha:

    ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
    Desativar Firewal do Windows
    Adicione um Button e no evento OnClick ponha:

    WinExec(PAnsiChar('netsh firewall set opmode disable'), 0);
    Ativar Firewal do Windows
    Adicione um Button e no evento OnClick ponha:

    WinExec(PAnsiChar('netsh firewall set opmode enable'), 1);
    Creditos:

    FusioN
    Kane
    Última edição por FusioN; 17-08-2010 às 11:15 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Dúvida| Minimizer em Delphi
    Por Yann Diias no fórum Dúvidas
    Respostas: 9
    Último Post: 08-04-2014, 11:18 PM
  2. |Suporte| Função Delphi
    Por VinihBulla no fórum Dúvidas
    Respostas: 9
    Último Post: 15-01-2014, 11:37 PM
  3. |Dúvida| Delphi
    Por antoniomuwave no fórum Delphi
    Respostas: 6
    Último Post: 17-07-2013, 01:05 PM
  4. |Dúvida| Erro Delphi
    Por Marceliin no fórum Delphi
    Respostas: 1
    Último Post: 12-08-2012, 11:30 AM
  5. |Dúvida| Delphi.
    Por -PC- no fórum Suportes|Dúvidas|Pedidos
    Respostas: 3
    Último Post: 12-08-2012, 11:27 AM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •