Delphi XE2 - 10: Global hotkey -

-

j have main program works barcode reader , keyboard without keypad. when in program number keys or return key pressed (or simulated via barcode reader) j need check in application (that runs idden in try bar) if insert code stored in database. tried global hotkey. here sample project

type tform1 = class(tform)   procedure formcreate(sender: tobject);   procedure formdestroy(sender: tobject); private { private declarations }   id0, id1, id2, id3  : integer;   id4, id5, id6, id7  : integer;   id8,id9,identer     : integer;   code                : string;   procedure wmhotkey(var msg: twmhotkey); message wm_hotkey; public { public declarations } end;  var form1: tform1;  implementation  {$r *.dfm}  procedure tform1.formcreate(sender: tobject); const   k_0   = $30;   k_1   = $31;   k_2   = $32;   k_3   = $33;   k_4   = $34;   k_5   = $35;   k_6   = $36;   k_7   = $37;   k_8   = $38;   k_9   = $39;  begin   // register 0 9 , enter   id0 := globaladdatom('k0');   registerhotkey(handle, id0, 0, k_0);   id1 := globaladdatom('k1');   registerhotkey(handle, id1, 0, k_1);   id2 := globaladdatom('k2');   registerhotkey(handle, id2, 0, k_2);   id3 := globaladdatom('key3');   registerhotkey(handle, id3, 0, k_3);   id4 := globaladdatom('key4');   registerhotkey(handle, id4, 0, k_4);   id5 := globaladdatom('key5');   registerhotkey(handle, id5, 0, k_5);   id6 := globaladdatom('key6');   registerhotkey(handle, id6, 0, k_6);   id7 := globaladdatom('key7');   registerhotkey(handle, id7, 0, k_7);   id8 := globaladdatom('key8');   registerhotkey(handle, id8, 0, k_8);   id9 := globaladdatom('key9');   registerhotkey(handle, id9, 0, k_9);   identer := globaladdatom('keyenter');   registerhotkey(handle, identer, 0, vk_return);   code:=''; end;  procedure tform1.formdestroy(sender: tobject); begin   unregisterhotkey(handle, id0);   globaldeleteatom(id0);   unregisterhotkey(handle, id1);   globaldeleteatom(id1);   unregisterhotkey(handle, id2);   globaldeleteatom(id2);   unregisterhotkey(handle, id3);   globaldeleteatom(id3);   unregisterhotkey(handle, id4);   globaldeleteatom(id4);   unregisterhotkey(handle, id5);   globaldeleteatom(id5);   unregisterhotkey(handle, id6);   globaldeleteatom(id6);   unregisterhotkey(handle, id7);   globaldeleteatom(id7);   unregisterhotkey(handle, id8);   globaldeleteatom(id8);   unregisterhotkey(handle, id9);   globaldeleteatom(id9);   unregisterhotkey(handle, identer);   globaldeleteatom(identer); end;  procedure tform1.wmhotkey(var msg: twmhotkey); begin   if msg.hotkey = id0 code:= code +'0';   if msg.hotkey = id1 code:= code +'1';   if msg.hotkey = id2 code:= code +'2';   if msg.hotkey = id3 code:= code +'3';   if msg.hotkey = id4 code:= code +'4';   if msg.hotkey = id5 code:= code +'5';   if msg.hotkey = id6 code:= code +'6';   if msg.hotkey = id7 code:= code +'7';   if msg.hotkey = id8 code:= code +'8';   if msg.hotkey = id9 code:= code +'9';   if msg.hotkey = identer   begin     showmessage('enter pressed ! ' + #13 + code);      code:='';   end; end;  end.

this works, if number keys pressed string increase , if return pressed message displyed in other windows application (notepad, i.e. , in main program) keys seem disabled (maybe because hotkeys).

please can have idea(s) on how code typed in main program (not one) in second program (my one)??

thank's appreciate reply

regard

daniele

when called registerhotkey told system process handle presses of registered key. it's natural key has effect in process , ignored other processes. design.

what need instead use keyboard hook. simplest 1 write low-level keyboard hook. simple because not require injection. use setwindowshookex passing wh_keyboard_ll.


Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more