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

[W0LF]

Здравствуйте, вопросик. Объясните как можно из любого окна вытащить любую информацию и занести туда другую (зная хэндл и класс окна и объекта). И как в другом окне кликнуть на кнопку. Если можете объясните толково и если не сложно с примерами.

Заранее спс всем

[russian-stalker]

Вот так например можно порисовать на чужом окне:

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('MozillaUIWindowClass',nil);
Rectangle(getdc(h),0,0,screen.Width div 2,screen.Height div 2);
Ellipse(getdc(h),screen.width div 2,screen.Height div 2,screen.Width,screen.Height);
ReleaseDC(h,getdc(h));
end;

[W0LF]

Интересно, спс, но не то =) хотелось бы по теме узнать

Ну вот например как взять информацию из чужого окна из простого едита, сохранить в переменную и поменять текст с того едита на текст, ну например "Hello world" ?

[TwiX]

Чтобы щелкнуть на кнопку, нужно получить её хендл, а потом использовать SendMessage(but, BM_CLICK, 0, 0);, где but - хендл кнопки.
Основное окно ищется с помощью adder:=FindWindow('TAddContactForm. UnicodeClass', 'Program Name');, где adder - переменная, куда положиться хендл, 'TAddContactForm.UnicodeClass', 'Program Name' - класс окна и его заголовок соответсвенно (можно писать только что-то одно, как в примере ниже).

Далее начинаем искать кнопку:
but:=FindWindowEx(adder, 0, 'TPanel', nil); - tpanel - класса объекта содержащего кнопку, nil - и его заголовок (или можно не использовать)

but:=FindWindowEx(but, 0, 'TTntPageControl.UnicodeClass', nil);
but:=FindWindowEx(but, 0, 'TTntTabSheet.UnicodeClass', 'sheetFirst');
but:=FindWindowEx(but, 0, 'Button class', 'Text');

В данном случае мы найдёём кнопку которая находилась в
'TPanel'->'TTntPageControl.UnicodeClass'->'TTntTabSheet.UnicodeClass'->Наша кнопка

FindWindow(Ex) возратит 0, если не найдёт подходящего контрола.



2. Получить текст окна можно тоже с помощью sendmessage(или postmessage) используя wm_gettext вместо bm_click (как Вы уже догадались - это сообщения виндоса =) )

Сообщение: wm_gettext Копиpует текст, связанный с окном, в имеющийся буфеp.

Паpаметpы:
wparam: Максимальное число байт, котоpые могут быть скопиpованы в буфеp lparam.
lparam: Является указателем на буфеp. Буфеp должен иметь длину не менее wparam байт. Возвpащаемое значение: Если окно является блоком списка и нет выбpанных элементов, возвpащается lb_err. если окно является комбиниpованным блоком, не имеющим оpгана упpавления pедактиpованием, возвpащается cb_err. В пpотивном случае, возвpащается число скопиpованных байт, включая пустой символ окончания. Комментаpии: Для оpганов упpавления pедактиpованием текст является содеpжимым оpгана упpавления pедактиpованием. Для оpганов упpавления кнопок текст является именем кнопки. Для комбиниpованных блоков текст является содеpжимым оpгана упpавления pедактиpованием комбиниpованного блока. Для всех дpугих окон текст является заголовком окна. См. также wm_gettextlen и wm_settext.

Сообщение: wm_gettextlength Возвpащает длину в байтах текста, связанного с окном

[russian-stalker]

Вот могучая кучка:

procedure TForm2.Button2Click(Sender: TObject);
var
h,bh:hwnd;
c:PAnsiChar;
r:trect;
lp:tpoint;
begin
h:=findwindow('TForm1',nil);
if h<>0 then
bh:=findwindowex(h,0,'TButton',nil);
if bh<>0 then
begin
   windows.GetWindowText(bh,c,255); //Получаем текст
   windows.SetWindowText(bh,'MY'); //Ставим текст
   windows.GetWindowRect(bh,r);
   lp:=mouse.CursorPos;
   windows.SetFocus(h);
   Setcursorpos(r.left,r.Top);
mouse_event(MOUSEEVENTF_LEFTDOWN,MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_ABSOLUTE,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_ABSOLUTE,0,0);
   mouse.CursorPos:=lp;
end;
end;

[TwiX]

Вот тут описание всех wm_* комманд:
http://articles.org.ru/cfaq/index.php?qid=1139&catid=77

[W0LF]

Ссылка чото не работает

[TwiX]

Странно, только вчера открывал - до сегодня открытая висела - сервак по ходу опустили - надо подождать)
В моём примере что-то не понятно?)

[W0LF]

Вот у меня есть кнопка, она лежит в GroupBox'e, которая лежит на Panel, которая лежит непосредственно на форме.

Я находил хэндл окна, потом на этом окне хэндл панели и т.д., но при окно находит, а следующие элементы нет. Вот так как ты TwiX сказал

var
  Window,Panel,Group,Button:hwnd;
begin
Window:=FindWindow('TForm1', 'Form1');
//if Window<>0 then ShowMessage('Окно найдено');
Panel:=FindWindowEx(window, 0, 'TPanel','Panel1');
//if Panel<>0 then ShowMessage('Панель найдена') else ShowMessage('Панель НЕ найдена');
Group:=FindWindowEx(Panel, 0, 'TGroupBox','GroupBox1');
//if Group<>0 then ShowMessage('Гроуп найдена') else ShowMessage('Гроуп НЕ найдена');
Button:=FindWindowEx(Group, 0, 'TButton','Button1');
//if Group<>0 then ShowMessage('Буттон найдена') else ShowMessage('Буттон НЕ найдена');
end;

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

я бы через Spy++ проверил иерархию...вы уверенны что она такова?(с точки зрения АПИ а не ВСЛ)