Эмулирование мыши/клавиатуры, Через SendInput()
Falk0ner, вс, 06/07/2008 - 15:34.
Эмулирование мыши/клавиатуры, Через SendInput()
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;
{©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;
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_
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;
Молодчина, Розочка!
Я вот глянул мсдн, потом этот пример и все - все стало понятно ))))
Молодец!
Отправить комментарий