[MrDiG]

Значит создал файл в блокноте. Забил его единичками. Нижеприведённый код выставляет курсор в указанное мной место. В данном примере x=200 y=200 Проверил и на других числах - работает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND; i: Integer; s: string;
begin
wnd:=FindWindow('notepad', nil);
if wnd<>0 then
	begin
	wnd:=FindWindowEx(wnd, 0, 'Edit', nil);
	s:='PIZDEC';
	for i:=1 to Length(s) do
		//SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
	// Simulate Return Key.
	//PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
	// Simulate Space.
	//PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
postmessage(Wnd,WM_MOVE,0,(200 shl 16)+ 200);
postmessage(Wnd,WM_LBUTTONDOWN,0,(200 shl 16)+ 200);
postmessage(Wnd,WM_LBUTTONUP,0,(200 shl 16)+ 200)
	end;
end;

Значит можно-таки движение мыши передать.