SendMessage 循环按1 到6 F1到F8_2

//循环按1 到6 F1到F8 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  wmHwnd:HWND;
  i:integer;
begin
    wmHwnd:=FindWindow(nil,'Element Client');
    for i := 49 to 54 do //键1到1键6
    begin
      SendMessage(wmHwnd,WM_KEYDOWN,i,0);
      SendMessage(wmHwnd,wm_keyup,i,0);
    end;
    for i := 112 to 119 do //键F1 到键F8
    begin
      SendMessage(wmHwnd,WM_KEYDOWN,i,0);
      SendMessage(wmHwnd,wm_keyup,i,0);
    end;
end;

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/03/2532896.html