Medion X10 Mausklick

[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;