Эмулирование мыши/клавиатуры, Через SendInput()

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru}

 

var

TI:TInput;

MI: TMouseInput;

P:TPoint;

begin

GetCursorPos(P);

MI.dx := P.X;

MI.dy := P.Y;

MI.mouseData := 0;

MI.dwFlags := MOUSEEVENTF_RIGHTDOWN ;

MI.time := 10;

TI.mi := MI;

TI.Itype := INPUT_MOUSE;

SendInput(1, TI, SizeOf(TInput));

MI.dwFlags:=MOUSEEVENTF_RIGHTUP;

TI.mi := MI;

SendInput(1, TI, SizeOf(TInput));

end;

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

const

SomeText = 'SendInput test.';

var

TI: TInput;

KI: TKeybdInput;

I: Integer;

begin

Edit1.SetFocus;

TI.Itype := INPUT_KEYBOARD;

for I := 1 to Length(SomeText) do

begin

   KI.wVk := Ord(UpCase(SomeText[I]));

   KI.dwFlags := 0;

   TI.ki := KI;

   SendInput(1, TI, SizeOf(TI));

   KI.dwFlags := KEYEVENTF_KEYUP;

   TI.ki := KI;

   SendInput(1, TI, SizeOf(TI));

end;

end;

 

Взято из http://forum.sources.ru

Автор: Rouse_

©Drkb::01613