Ввод текста в окошка квипа

[KoBRaAndrey]

Сделал код:
var
qip,qip2,qip3:hwnd;
begin
qip:=FindWindow('TfrmTabber.Unicode Class',nil);
qip2:=findwindowex(qip,0,'TInfiPage Control.UnicodeClass',nil);
qip3:=findwindowex(qip2,0,'TInfuRic hViewEdit','');
SetWindowText(qip3,'Ыыыыыыы');
Но он незнаю почему не пашет.. Что я не так сделал
Или как по другому вводить сообщения в QIP Infium?

[Stilet]

Проверь переменные, окно то хоть находится?

SetWindowText(qip3,'Ыыыыыыы');

С чего ты взял что эта функа в квип что-то запишет?

[KoBRaAndrey]

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

[mihali4]

Смотрите поиском темы "Работа с чужими окнами".

[KoBRaAndrey]

Посмотрел, там написана программа - InqSoft Window Scanner
Я ею и пользовался, структуру проверить не могу, т.к некоректно работает на Win7, ошибку выбивает.

var
qip1,qip2,qip3,qip4,qip5,qip6: hwnd;
begin
if FindWindow('TfrmTabber.UnicodeClass',nil)<>0 then
qip1:=FindWindow('TfrmTabber.UnicodeClass',nil);
showmessage('1');

if findwindowex(qip1,0,'TInfiPageControl.UnicodeClass',nil)<>0 then
showmessage('2');
qip2:=findwindowex(qip1,0,'TInfiPageControl.UnicodeClass',nil);

if findwindowex(qip2,0,'TQipTabSheet.UnicodeClass',nil)<>0 then
showmessage('3');
qip3:=findwindowex(qip2,0,'TQipTabSheet.UnicodeClass',nil);

if findwindowex(qip3,0,'TMsgPanel.UnicodeClass',nil)<>0 then
showmessage('4');
qip4:=findwindowex(qip3,0,'TMsgPanel.UnicodeClass',nil);

if findwindowex(qip4,0,'TInfuPanel.UnicodeClass','')<>0 then
showmessage('5');
qip5:=findwindowex(qip4,0,'TInfuPanel.UnicodeClass','');

if findwindowex(qip5,0,'TInfuRichViewEdit',nil)<>0 then
showmessage('6');
qip6:=findwindowex(qip5,0,'TInfuRichViewEdit',nil);

SetWindowText(qip6,'Тест');

Доходит до 6, ито если в InqSoft Window Scanner панелько справо в 11111 переименую, но текст не задаеться, в чем дело?

[Stilet]

но текст не задаеться, в чем дело?

еще раз повторяю - SetWindowText не будет добавлять текст в окно РичЭдита КВИПа. Для РичЭдита нужно посылать его специальные сообщения.

[DeDoK]

Ммм..у всех одна ошибка))) изучите окно статуса. там есть кнопка ок. если ее не нажать - хоть что ты туда вбей - не отобразиться. у меня есть исходник под 2005 квип. если кому интересно - после шести по мск в асю - поделюсь.