alt tab automatico de 1 em 1 minuto

Question

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 ..

Brunog3 · Answer

E ai blz?Simule o pressionamento das teclas Alt e Tab voc� vai conseguir.Da uma olha no c�digo...[code:1:402a8cd353]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;[/code:1:402a8cd353]...

F�rum alt tab automatico de 1 em 1 minuto #356937