Einzelnen Beitrag anzeigen

Benutzerbild von rhodan
rhodan

Registriert seit: 4. Okt 2005
Ort: Hamburg
150 Beiträge
 
Delphi 7 Personal
 
#4

Re: Tastendruck simulation nach eingabe im Editfeld?

  Alt 17. Jan 2007, 17:33
ich habs jetzt hinbekommen

allerdings drückt er nur "C" wenn ich ins editfeld "c" schreibe...

Delphi-Quellcode:
if (Edit1.Text = 'c') then
  keybd_event(Ord('C'), 0, 0, 0);
  Keybd_Event(Ord('C'),0,KEYEVENTF_KEYUP,0);
wie kriege ich ihn dazu auch "HALLO" simuliert zu schreiben? klar kann ich ihm sagen

Delphi-Quellcode:
if (Edit1.Text = 'hallo') then
keybd_event(Ord('H'), 0, 0, 0);
Keybd_Event(Ord('H'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('A'), 0, 0, 0);
Keybd_Event(Ord('A'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('L'), 0, 0, 0);
Keybd_Event(Ord('L'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('L'), 0, 0, 0);
Keybd_Event(Ord('L'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('O'), 0, 0, 0);
Keybd_Event(Ord('O'),0,KEYEVENTF_KEYUP,0);
aber ich weiss ja nicht was der user schreibt...wie lese ich jeden buchstaben einzelnd aus?

danke
  Mit Zitat antworten Zitat