tastendruck simulation problem... 1,0

[arcangel]

Delphi-Quellcode:

if chkaoe.Checked = true then
  begin
  o := StrtoInt(edtaoex.Text);
  p := StrtoInt(edtaoey.Text);
  // Maus an Position x,y setzen:
  SetCursorPos(o, p);
  //linke maustaste simulieren
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  sleep(1000);

    KeyBD_Event(1,0,0,0); //drückt die Taste runter
    KeyBD_Event(1,KEYEVENTF_KEYUP,0,0);//lässt die Taste wieder los
    sleep(1000);
    KeyBD_Event(0,0,0,0); //drückt die Taste runter
    KeyBD_Event(0,KEYEVENTF_KEYUP,0,0);//lässt die Taste wieder los

  sleep(3000);
  end;

hi, mein programm soll wenn die checkbox chkaoe gecheckt ist die maus an eine bestimmte position setzen, klicken und dann einmal die 1 simulieren und dann die 0 (10)[also schreiben...]

ich habs jetzt mit 1,0 versucht, mit "1", "0" und mit dem Key_0 und Key_1 oder wie das heisst...

jedenfalls schreibt das teil einfach nicht, woran kanns liegen? wer kann mir bei meinem problem helfen?^^

[DeddyH]

Schau mal in der CodeLib: http://www.delphipraxis.net/internal...ct.php?t=85418

[arcangel]

danke, habs geschafft