Medion X10 Fernbedienungs Tasten Programmieren

[Gehstock]

tue ich mit

Delphi-Quellcode:

   case ecommand of
 13 : MausLeft(lSequence);
 11 : MausRight(lSequence);  //Rechts
 19 : MausUp(lSequence);  //Hoch
 12 : MausDown(lSequence);  //Runter
 15 : MausLB;
 09 : MausRB;
 20 : key($30);//0
 44 : key($31);//1
 47 : key($32);//2
 42 : key($33);//3
 22 : key($34);//4
 27 : key($35);//5
 25 : key($36);//6
 23 : key($37);//7
 26 : key($38);//8
 21 : key($39);//9
 98 : key(12);//Delete Fehlerhaft  key($0c); ,key(VK_CLEAR)   gehen auch nicht  soll diese taste werden "<----" über der Entertaste
157 : key(VK_PRINT);//Snapshot   ***********Fehlerhaft
  end;//Case

Delphi-Quellcode:

Function Key(key : Dword):Boolean;
begin
  keybd_event(key, 0, 0, 0);
  keybd_event(key, 0, KEYEVENTF_KEYUP, 0);
end;

die Zahlen gehen alle
aber bei den meisten tasten hängts