[DELPHI][TUTORIAL]Comandos Malignos no Delphi

por FusioN em Dom 28 Mar 2010, 20:00

Bom nesse topico vou mostrar auguns comandos bacanas de serem feitos !

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('shell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil),0);

Mostrar Relógio
Adicione um Button e no evento OnClick ponha:

ShowWindow(FindWindowEx(FindWindowEx(FindWindow('shell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',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_traywnd',nil),0,'Button',nil),False);

Destravar Iniciar
Adicione um Button e no evento OnClick ponha:

EnableWindow(FindWindowEx(FindWindow('Shell_traywnd',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:

Kane - Codigos;
Fus!oN - Tutorial;