[Delphi 7] иимитация ввода с клавиатуры

[unbanned]

сделал вот такую процедуру

procedure enter(var s:string);
var i:integer;
begin
for i := 1 to length(s) do begin
  keybd_event(ord(s[i]), 0, 0, 0);
  keybd_event(ord(s[i]),0,KEYEVENTF_KEYUP,0);
end;
end;

цифры нормально вводит, а символы отказывается

[Аватар]

SendInput получше будет

[Пепел Феникса]

Аватар, +1

ТС, первая ваша ошибка в том что вы не читаете описание функции, они принимает виртуальный код клавиши, а не код символа как вы полагаете.
читать про MapVirtualKey тырк

[unbanned]

procedure typing(var str: string);
var
  inp: TInput;
  i: integer;
begin
  for i := 1 to length(str) do
  begin

    inp.Itype := INPUT_KEYBOARD;
    inp.ki.wVk := Ord(UpCase(str[i]));
    inp.ki.dwFlags := 0;
    SendInput(1, inp, SizeOf(inp));

    inp.Itype := INPUT_KEYBOARD;
    inp.ki.wVk := Ord(UpCase(str[i]));
    inp.ki.dwFlags := KEYEVENTF_KEYUP;
    SendInput(1, inp, SizeOf(inp));

    Application.ProcessMessages;
    Sleep(80);
  end;
end;

ну вот... погуглив вот что получилось)
спасибо.