Comandos...

[Rodolfo_Pessanha]

Alguém sabe um site q tenha os comandos de delphi tipow

Desligar Windows..

Desativar o Teclado..

Mouse..

Etc... ?

[Arlon]

Huuuuum, comandos sobre hardware né??

Comandos sobre o mouse:

Comandos sobre mouse. 
  

  //Comando para posicionar o mouse
  SetMousePos(x,y):
  //Comando para fazer ações com o mouse
  mouse_event(Comando,0,0,0,0);
  //Coamndos dos botões
  MOUSEEVENTF_LEFTDOWN //-->preciona o botão esquerdo
  MOUSEEVENTF_LEFTUP //--> larga o botão esquerdo
  MOUSEEVENTF_RIGHTDOWN //-->preciona o botão direito
  MOUSEEVENTF_RIGHTUP //--> larga o botão direito
  MOUSEEVENTF_MIDDLEDOWN //--> preciona o botão do meio
  MOUSEEVENTF_MIDDLEUP //--> larga o botão do meio
  MOUSEEVENTF_WHEEL {--> Activa o WHELL (Não verificada se funciona)}

  {Fazendo movimentos com o mouse}
  procedure genmouse;
  begin
    setmousepos(20,50);
    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  end;


  {para fazer dois cliques utiliza-se duas vezes aos comandos de um clique, ou seja: primeiro clique}
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  //Segundo clique}
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); 

Comandos sobre o nosso querido, amado e adorado Windows (não estou de deboche hein!!):

Finalizando o Windows Via Programação 


procedure TForm1.ButtonClick(Sender:    TObject);
begin
   {Reinicia o windows}
   ExitWindowsEx(EWX_REBOOT,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   {Desliga o windows}
   ExitWindowsEx(EWX_SHUTDOWN,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   {Força todos os programas a desligarem-se}
   ExitWindowsEx(EWX_FORCE,0);
end;

Outros códigos procure nos sites da nossa sessão de links: ClubeDelphi, PlanetaDelphi e ActiveDelphi (os principais).

[Rodolfo_Pessanha]

vlw cara ... brigadão ae