keybd_event und Sonderzeichen

[fkerber]

Hi!

SirThornberry stellt hier eine Prozedur vor, mit der es möglich ist, mittels keybd_event Text einzugeben. Das "besondere" an der Funktion ist, dass sie auch die Stellung der Shift-/Alt- und Caps-Taste berücksichtigt. Außerdem ist auch die korrekte "Bearbeitung" von Sonderzeichen implementiert:

Delphi-Quellcode:

procedure EnterText(AText: String);
var lCount     : Integer;
    lScanCode  : Smallint;
    lWithAlt,
    lWithCtrl,
    lWithShift : Boolean;
begin
  for lCount := 1 To Length(AText) Do
  begin
    lScanCode := VkKeyScan(AText[lCount]);
    //Ermitteln ob Shift gedrückt wurde
    lWithShift := lScanCode and (1 shl 8)  <> 0;
    //Ermitteln ob Strg gedrückt wurde
    lWithCtrl  := lScanCode and (1 shl 9)  <> 0;
    //Ermitteln ob Alt gedrückt wurde
    lWithAlt   := lScanCode and (1 shl 10) <> 0;

    if lWithShift then
      keybd_event(VK_SHIFT, 0, 0, 0);
    if lWithCtrl then
      keybd_event(VK_CONTROL, 0, 0, 0);
    if lWithAlt then
      keybd_event(VK_MENU, 0, 0, 0);

    keybd_event(lScanCode, 0, 0, 0);
    keybd_event(lScanCode, 0, KEYEVENTF_KEYUP, 0);

    if lWithAlt then
      keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
    if lWithCtrl then
      keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    if lWithShift then
      keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

Da ich sie leider nicht im Text unterbringen konnte, hier noch ein paar Suchwörter, damit der Thread gut gefunden werden kann:
simulieren, Tastendruck, Virtual Key


Ciao Frederic

[edit=Dax]Doofes Highlighting... Mfg, Dax[/edit]