Einzelnen Beitrag anzeigen

youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#1

Keyboard Send Text

  Alt 9. Jan 2015, 17:09
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
Steven

Geändert von youuu ( 9. Jan 2015 um 18:02 Uhr)
  Mit Zitat antworten Zitat