Keyboard Send Text

[youuu]

Hi,

ich hab ein Problem damit, wenn ich Text senden möchte und dort Umlaute enthalten sind.

Delphi-Quellcode:

  for i := 1 to Length(text) do begin
    // press
    Inp.Itype := INPUT_KEYBOARD;
    Inp.ki.wVk := Ord(UpCase(text[i]));
    Inp.ki.dwFlags := 0;
    SendInput(1, Inp, SizeOf(Inp));

    // release
    Inp.Itype := INPUT_KEYBOARD;
    Inp.ki.wVk := Ord(UpCase(text[i]));
    Inp.ki.dwFlags := KEYEVENTF_KEYUP;
    SendInput(1, Inp, SizeOf(Inp));

    Application.ProcessMessages;
    Sleep(80);
  end;

Umlaute werden komplett ausgespart, leider werden auch sämtliche Zeichen klein gesendet (Haus = haus | Hüte = hte)

Hat jemand eine Idee?



EDIT: GELÖST siehe http://www.delphipraxis.net/154931-s...infacht-2.html

[Der schöne Günther]

Kannst du genauer erläutern, wohin du den Text "senden" willst? Ist es ein Textfeld von dem du das Fenster-Handle (HWND) kennen würdest? Dann würde ich das über eine WM_CHAR -Message machen. Kurz ausprobiert, funktioniert auch mit Dingen wie ‏جهاد‎.

Ansonsten sind es natürlich nur Kleinbuchstaben, denn du simulierst ja auch kein Drücken auf die Shifttaste. Außerdem verstehe ich den Sinn nicht, die Zeichen (mit Pause) hintereinander zu senden. Packe es doch alles in ein Array und verschicke das einmal mit SendInput .

Dass Ord(System.UpCase(text[i])) dem "Virtual Keycode" entspricht halte ich nur für einen glücklichen Zufall, aber da kenne ich mich nicht aus. Wie man Dinge wie "Ü" oder "‏جهاد‎" jetzt damit versenden könnte wüsste ich spontan auch nicht.