如何从另一个应用程序（服务）向表单中的TEdit发送文本？

Question

我想在名为TfrmGuiaMovimiento的窗口中向TEdit发送名为edtCodigo的条形码，我使用以下代码：

var
  h: HWND;
  codigo: string;
  i: Integer;
begin
  h := FindWindow('TfrmGuiaMovimiento',nil);
  if h > 0 then
  begin
    codigo := '7665009887781';
    h := FindWindowEx(h, 0, 'edtCodigo', nil);
    if h > 0 then
    begin
      for i := 1 to codigo.Length do SendMessage(h, WM_CHAR, Ord(codigo[i]), 0);
      PostMessage(h, WM_KEYDOWN, VK_RETURN, 0);
    end;
  end;
 end;

但我还没有。 但直接发送Handle会有效。

Answer 1

TypeError: productsArray.map