Работа с чужими окнами

[ZBEP]

Здравствуйте, сори за подобную тему, знаю, что подобных тем много, но прочитав их - я не смог найти ответов на несколько вопросов (может просмотрел или не понял что именно нужно), вобщем вот:
Для начала, можно ли как-нибуть через:

PostMessage(wnd, WM_KEYDOWN, key, 0);
PostMessage(wnd, WM_KEYUP, key, 0);

Имитировать нажатие -> ':' в неактивное окно?
вот так

PostMessage(wnd, WM_KEYDOWN, VK_SHIFT, 0);
PostMessage(wnd, WM_KEYDOWN, 186, 0);
PostMessage(wnd, WM_KEYUP, 186, 0);
PostMessage(wnd, WM_KEYUP, VK_SHIFT, 0);

или так

keybd_event(16,0,0,0);
PostMessage(wnd, WM_KEYDOWN, 186, 0);
PostMessage(wnd, WM_KEYUP, 186, 0);
keybd_event(16,0,KEYEVENTF_KEYUP,0 );

Не катит, он печатает не ':' а ';' хз почему так.
Через WM_CHAR тоже не получается, т.к. не удается узнать класс и т.д. поля ввода (оно появляется в приложении по нажатию на Enter).
В блокноте например никаких проблем и Edit опредилить получилось и через Char посылать сообщения, а тут ток через нажатие получается..

И как можно изменить заголовок чужого окна?
Дело в том, что запускаются 2 копии программы, но данные надо вводить допустим только во вторую копию программы.
Но если в момент определения окна по классу(потому что заголовок динамичный, по классу легче было сделать) - активным окном будет первая копия программы, то данные в дальнейшем будут вводиться именно в нее, а не в ту, что нужно.

Зарание спасибо.

[raxp]

PostMessage(wnd, $0102, ord(':'), 0) ...wnd должно-быть именно окно которому посылаете.

[ZBEP]

А вот косяк в том, что оно не известно.
Известно главное окно, на котором (помойму с помошью скрипта реализован ввод по нажатию на Enter).
Если так, то он посылает команду главному окну, а не в поле ввода.

Получилось только имитировать нажатие на Enter и затем вводить данные:

procedure CK(wnd: HWND; kk:string);
var n:integer;
begin

if kk='a' then n:=65;     //Присваиваю коды клавишь.
...
if kk='/' then n:=191;

if wnd<>0 then           //Если окно найдено, то выполняется условие
begin
PostMessage(wnd, WM_KEYDOWN, n, 0);   //Зажать кнопку
PostMessage(wnd, WM_KEYUP, n, 0);        //Отпустить кнопку
end;
end;
...
...

procedure ClickKey(wnd: HWND; key:word);
begin
if wnd<>0 then
begin
PostMessage(wnd, WM_KEYDOWN, key, 0);
PostMessage(wnd, WM_KEYUP, key, 0);
end;
end;

...
...

procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND; i,n: Integer;
s:string;
begin
wnd:=FindWindow('SDL_app', nil);         //ищу окно по классу
sleep(500);                                       //Жду..
ClickKey(wnd,13);                              //Нажимаю Enter
s:='Вводимые данные';                       //Пишу нужные команды
for i := 1 to Length(s) do  //Посылаю буквы поочереди                  
CK(wnd,s[i]);                 //в процидуру CK 
sleep(500);
ClickKey(wnd,13);
end;

Но ':' в неактивном окне ввести не получилось, приходится делать окно активным и затем:

keybd_event(16,0,0,0);
keybd_event(186,0,0,0);
keybd_event(186,0,KEYEVENTF_KEYUP,0 );
keybd_event(16,0,KEYEVENTF_KEYUP,0 );

Но нужно это делать в неактивном окне(

[raxp]

А вот косяк в том, что оно не известно...

значит его сначала найти нужно через EnumChildWindows... берем справочник dFaq от mihali4 и ищем...

var Edits: array of HWND;

function EnumEdits(H:HWND;i:integer):BOOL;stdcall;
var s:string;
begin
 Result:=true;
 setLength(s,256)
 GetClassName(H,PChar(s),255);
 SetLength(s,lStrLen(PChar(s)));
 if ANSIApperCase(s)<>'EDIT' then exit;
 SetLength(Edits,Length(Edits)+1);
 Edits[Length(Edits)]-1:=H;
end;


 //по кнопке например
 SetLength(Edits,0);
 EnumChildWindows(findwindow(nil,'MU'),{ìîæåò @ íàäî}EnumEdits,0);
 //в массиве Edits все EDIT контролы родителями которого является окно MU

смысл ясен?

[ZBEP]

Да, спс, щас попробую, раньше через EnumChildWindows не получалось найти и всякие проги показывающие компоненты окна и т.д. тоже не видели.

[ZBEP]

Не, ненаходит(
Или я что-то не так делаю..
C FindWindowEx тож попробовал..

Могу сказать приложение и ссылку дать откуда скачать можно (метров 8 весит, игра, я что-то вроде бота пишу).
У меня чет никак не выходит..

П.с.
А насчет исменения заголовка где можно покопать?
гуугл выдает оч много и не по теме..
Хотя может я туплю..

[Пепел Феникса]

raxp, чтото код до боли знакомый(особенно с моей привычкой к пробелам и отступам)

ТС, ну скиньте.

[raxp]

он самый, он самый

[ZBEP]

Игра - Toribash
Скачать можно с официального сайта http://www.toribash.com/downloads.php
Необходимо определить поле воода которое появляется при нажатии на Enter во время игры (типа чат).

П.с.
Изменение заголовка - тоже нужно, или как еще можно разделить 2 запускаемые копии этой игры?

[Пепел Феникса]

1)там нет внутренних окон, все рисуется на главном...значит шлем все ему.

2)по PID например.(+помнить какое окно какому процессу принадлежит)
а перечислить все окна можно по коду что raxp дал(чуть переделать надо)