Посмотри пару примерчиков как на Delphi, мышь/клаву эмулировать, может поможет. 
Код:
uses Mmsystem;
procedure PostKeyboardEvent(KeyKode,State : integer);
var
Temp : TInput;
begin
Temp.IType:=INPUT_KEYBOARD;
Temp.ki.time:=0;
Temp.ki.dwExtraInfo:=cardinal(nil);
Temp.ki.wVk:=KeyKode and $FF;
Temp.ki.wScan:=MapVirtualKey(KeyKode, 0) and $FF;
Temp.ki.dwFlags:=STATE;
SendInput(1,Temp,SizeOf(Temp));
end;
procedure PostMouseMoveEvent(Dx,Dy : integer);
var
Temp : TInput;
begin
Temp.IType:=INPUT_MOUSE;
Temp.mi.dx:=Dx;
Temp.mi.dy:=Dy;
Temp.mi.MouseData:=0;
Temp.mi.dwFlags:=MOUSEEVENTF_MOVE;
Temp.mi.time:=0;
Temp.mi.dwExtraInfo:=cardinal(nil);
SendInput(1,Temp,SizeOf(Temp))
end;
Ответить с цитированием
