alt tab automatico de 1 em 1 minuto

Delphi

09/04/2008

Oie galera, gostaria de saber se alguem tem alguma ideia de como faço um programinha bem simples q a sua funcão seria a seguinte, eu clico no botao ativar, automaticamente emularia o usuario apertando a tecla ´alt+tab´ queria saber como trabalhar com o alt+tab no delphi,

agradeco ..


Paulovitor22

Paulovitor22

Curtidas 0

Respostas

Brunog3

Brunog3

09/04/2008

E ai blz?

Simule o pressionamento das teclas Alt e Tab você vai conseguir.

Da uma olha no código...

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//Quando o checkbox é marcado ativa o timer
  if CheckBox1.Checked then
    Timer1.Enabled := True else
    Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Pressiona o Alt Esquerdo
  keybd_event(VK_LMENU,$45, KEYEVENTF_EXTENDEDKEY, 0);
//Pressiona o Tab 
 keybd_event(VK_TAB,$45, KEYEVENTF_EXTENDEDKEY, 0);
//Solta o Tab
 keybd_event(VK_TAB,$45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
//Solta o Alt esquerdo
  keybd_event(VK_LMENU,$45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;



GOSTEI 0
POSTAR