Medion X10 Mausklick

[Gehstock]

also ich versuche meine Maus mit diesen Code zu Steuern das ansich klappt nur der Mausklick eben nicht

Delphi-Quellcode:

  case ecommand of
 13 : p.X := p.X - 10;  //Links
 11 : p.X := p.X + 10;  //Rechts
 19 : p.Y := p.Y - 10;  //Hoch
 12 : p.Y := p.Y + 10;  //Runter
 17 : begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //Linke MausT
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
   end;
 09 : begin
    mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //Rechte MausT
    mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
   end;
  end;//Case
  Mouse.CursorPos := p ;  //Neue Koordinaten übergeben
end;

Delphi-Quellcode:

X10CMD_MENU = $00000009; //Rechte MausT
  X10CMD_SKIP_DN = $0000000A;
  X10CMD_RIGHT = $0000000B;
  X10CMD_DN = $0000000C;
  X10CMD_LEFT = $0000000D;
  X10CMD_RETURN = $0000000E;
  X10CMD_ENTER = $0000000F;
  X10CMD_DISPLAY = $00000010;
  X10CMD_OKAY = $00000011; //Linke MausT

[Gehstock]

hat sich erledigt

Delphi-Quellcode:

procedure TForm2.FX10Interface1X10Command(ASender: TObject;
  const bszCommand: WideString; eCommand: TOleEnum; lAddress: Integer;
  EKeyState: TOleEnum; lSequence: Integer; eCommandType: TOleEnum;
  varTimestamp: TDateTime);
  var
  p: TPoint;
begin
If (EKeyState = 1) Or (EKeyState = 3) Then
  begin
  Label1.Caption := bszCommand;
  Label2.Caption := Inttostr(eCommand);
  Label3.Caption := Inttostr(lAddress);
  Label4.Caption := Inttostr(EKeyState);
  Label5.Caption := Inttostr(lSequence);
  Label6.Caption := Inttostr(eCommandType);
  Label7.Caption := DatetoStr(varTimestamp);

obwohl "bszCommand" OK als Befehl ausgibt muss es Enter Heißen also X10CMD_ENTER = $0000000F; Statt X10CMD_OKAY = $00000011;
und somit

Delphi-Quellcode:

15 : begin 
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //Linke MausT 
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); 
   end;

[Alter Mann]

Hallo Gehstock,

habe auch so ein Ding, X10.

Woher hast Du die Infos?, großes Interesse!

Gruß

[Gehstock]

hier aus dem forum bzw. dem restlichen Web.

bei Interresse können wir auch zusammen dran arbeiten, anbei ein kleines demo der bisherigen Arbeit


Funktionieren Tut die
Maus,(RMB = Rename,LMB = EditImage(Ist komisch belegt aber die FB liefert diese werte kann man ja noch ändern))
Mausrad (Ch +/-)
Systemlautstärke (Vol +/-)
Play,Pause,Mute
Zeit (txt)
alle zahlentasten

mit der taste Music wechselst du auf die Winamp Config wo die meisten Navigationstasten schon belegt sind

taste DVD ist für VLC konfiguriert

Späte soll mal die Config selbst angepasst werden können