moje weby:    Eshop - internetový obchod kde seženete parádní věcičky    www.imlok.net    elektrika (schémata, značky, postupy)    návody na deskové hry    Wordpress

iMlok.net
vodMobilPocket PCPClnkyLicenn ujednnKontakt
  

TRIKY - Delphi - zapnutí/vypnutí NumLock, CapsLock, ScrollLock

V článku najdete jak z Delphi ovládat zapnutí a vypnutí kláves Num Lock, Caps Lock a Scroll Lock. Samozřejmě bude k dispozici stáhnutí zdrojového kódu.

Zadání

automatický stisk kláves Num Lock, Caps Lock a Scroll Lock. Program slouží jako utilita, kdy nelze jinak zabránit usnutí PC, protože nejsou admin práva.

Kód


Mám tam proměnnou stridani, ktera je typu boolean. Tato mi říká zda je klávesa zapnutá nebo ne a podle toho volím kterou metodu mám zavolat. Lze to řešit i tak že si metodou GetSetKeyboardState zjistíte zda je daná klávesa zapnuta. Viz. API help.

Na formuláři jsou umístěny tyto prvky:
  • Button - pro aktivaci a deaktivaci stisku
  • Radio button - pro vybrání kterou klávesu simulovat
  • TextBox - aby se dal nastavit čas aktivace a deaktivace
  • Label - abych vědel zda program běží či ne (lze řešit i vlastností Enabled v komponentě Button)


Výsledný formulář:


obr č.1 - Zapínání kláves, výsledný formulář

Nápověda

Po spuštění programu jsou k dispozici tlačítka Zapnuto a Vypnuto.
Tlačítkem Zapnuto, program spustíte a běží. Tlačítkem Vypnuto, pokud program běží zastaví se.
V chlívečku Volba kláves si zvolíte kterou klávesu chcete simulovat.
V zadávacím poli Nastav čas v ms si zvolíte jak často má program činnost klávesy simulovat.
POZOR! 4as je v ms, tzn. že 1000ms = 10s atd.

25.7.2007 - Mlok -


Copyright   - MLOK -
Poet nvtev: 6346.213