Doi programatori într-un dopel beat de la o tavernă ies, unul vorbește cu altul:
- Pornește pilotul automat.
- Și nu o am.
- Atunci porniți emulatorul autopilot.
Are Delphi echivalentul funcției SendKeys din Visual Basic?
Mai jos este o procedură care vă permite să trimiteți intrări de la tastatură la orice control de fereastră care poate primi intrare de la tastatură. Puteți utiliza această tehnică pentru a include tastele NumLock, CapsLock și ScrollLock sub Windows NT. Aceeași tehnică funcționează în Windows 95 pentru CapsLock și ScrollLock, dar nu funcționează pentru tasta NumLock. Rețineți că există patru proceduri:
SimulateKeyDown () - emulați apăsarea de taste (fără eliberare)
SimulateKeyUp () - emulați eliberarea unei chei
SimulateKeystroke () - emulați un hit pe o cheie (apăsați și eliberați) și
SendKeys (), care vă permite să controlați flexibil mesajele trimise de la tastatură.
SimulateKeyDown (), SimulateKeyUp () și SimulateKeystroke () obțin coduri de chei virtuale (cum ar fi VK_F1). Procedura SimulateKeystroke () obține un parametru suplimentar, util pentru emularea apăsării PrintScreen. Când acest parametru este zero, întregul ecran va fi copiat în clipboard. Dacă parametrul suplimentar este 1, este copiată numai fereastra activă.
Patru metode de "clic pe butoane" demonstrează utilizarea:
ButtonClick1 - include capslock
ButtonClick2 - interceptează întregul ecran în clipboard (clipboard).
ButtonClick3 - interceptează fereastra activă din clipboard (clipboard).
ButtonClick4 - setează focalizarea pe Edit și trimite un șir la ea.
Trimiteți-le prietenilor: