for i := 0 to length(tel) do
begin
//SendMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0);
PostMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0);
sleep(80);
end;
转载于:https://www.cnblogs.com/realhope/p/7150108.html