|Tutorial| [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