Взаимодействие приложений

[artemavd]

Не получается вставить текст в окно чужого приложения . Использую этот код:

procedure TForm1.Button1Click(Sender: TObject);
var
 h,sh:HWND;
begin
 h:=FindWindow('Калькулятор Плюс',nil);
 sh:=FindWindowEx(h,0,'Edit',nil);
 SendMessage(sh,WM_SETTEXT,0,LParam(PChar('Мой текст')));
end;

Но, ничего не происходит. Текст не вставляется . Как быть?

[0nni]

Проверь чему равны h и sh, возможно ты неправильно указываешь заголовок окна или класс едита.

[artemavd]

Вот! Переделал

procedure TForm1.Button1Click(Sender: TObject);
var
 h,sh:HWND;
begin
 h:=FindWindow('SciCalc', 'Калькулятор Плюс');
 sh:=FindWindowEx(h,0,'Edit',nil);
 SendMessage(sh,WM_SETTEXT,0,LParam(PChar('Мой текст')));
end;

А вот вопрос: что значит вот это слово

h:=FindWindow('SciCalc', 'Калькулятор Плюс');

???

[psycho-coder]

Имя класса

[0nni]

Сообщение от artemavd

А вот вопрос: что значит вот это слово

h:=FindWindow('SciCalc', 'Калькулятор Плюс');

???

Найти окно с классом "SciCalc" и заголовком "Калькулятор Плюс" возможно до этого у тебя был открыт explorer и в окне тоже было "Калькулятор Плюс" поэтому ты находил не то окно.

[artemavd]

А если мне нужно вставить текст в окно приложения от 1С? Как там определить класс?

[Alex Cones]

Попробуй WinSight

[artemavd]

Попробуй WinSight

Это класс такой?

[psycho-coder]

Это программа отображающая все окна (вроде) в системе.
Пуск -> Все программы -> Borland Delphi 7 -> WinSight32

[artemavd]

А как мне ее закинуть на компьютер где не установлен Delphi?