Как записать данные в другую программу?

[Спартак]

Доброго времени суток, коллеги!
Такая ситуация: есть 2 Windows application-а. Допустим, что в форме первого приложения есть текстовое поле, и в нем записан текст. Можно ли вторым приложением получить доступ к этому тексту? Если можно, то как?

[rpy3uH]

Можно. Смотри поиск, не раз обсуждалось.
функции: FindWindow, FindWindowEx, SendMessage, SetWindowText, GetWindowText .

[Спартак]

большое спасибо!! буду копать в этом направлении

[Спартак]

Итак, вот текст:
procedure ReceiveMessage (var Msg: TMessage);
message WM_COPYDATA;
...
procedure TForm1.ReceiveMessage;
var
pcd: PCopyDataStruct;
cd: TCopyDataStruct;
begin
pcd := PCopyDataStruct(Msg.LParam);
Caption := PChar(pcd.lpData);
if h = 0 then h := FindWindow(nil, 'Form1');
cd.cbData := Length(PChar(IntToStr(STrToInt(Capt ion) + 1))) + 1;
cd.lpData := PChar(IntToStr(StrToInt(Caption) + 1));
SendMessage(h, WM_COPYDATA, 0, LParam(@cd));
end;
т.е. процедура принимает сообщение (число), прибавляет к нему 1 и отправляет обратно... все красиво, только есть несколько моментов:
1. что такое message WM_COPYDATA;?
2. может это как-нибудь покрасивее моно сделать?? собственно задача-то ставилась ВЗЯТЬ данные из текстового поля левой программы (тоже написанной мной). А если работать по этому коду, то мне придется этой программе отправлять какую-то команду, в ответ на которую эта самая программа должна отсылать мне данные текстового поля некрасиво может кто-нибудь знает решение?

[B_N]

Сообщение от Спартак

собственно задача-то ставилась ВЗЯТЬ данные из текстового поля левой программы (тоже написанной мной). А если работать по этому коду, то мне придется этой программе отправлять какую-то команду, в ответ на которую эта самая программа должна отсылать мне данные текстового поля некрасиво может кто-нибудь знает решение?

Ну так и берите текст через GetWindowTextLength - GetWindowText. Вам никто WM_COPYDATA пользоваться и не предлагал.

[mihali4]

1.

что такое message WM_COPYDATA?

Borland Shared\MSHelp\WIN32.HLP :

Тhe WM_COPYDATA message is sent when an application passes data to another application.

и так далее. Учитесь использовать себе во благо великолепную систему подсказок Дельфи, не пожалеете!

2.

собственно задача-то ставилась ВЗЯТЬ данные из текстового поля левой программы (тоже написанной мной). А если работать по этому коду, то мне придется этой программе отправлять какую-то команду, в ответ на которую эта самая программа должна отсылать мне данные текстового поля

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

[Спартак]

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

Ну так и берите текст через GetWindowTextLength - GetWindowText.

Эти функции работают с заголовком формы (тот, который Caption), а мне нужны данные из текстового поля (TEdit)

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

1.
Тогда придумайте как сделать, чтобы компьютер понимал ваши биотоки, мысли и т.п.
Он работает по командам, увы. Так что команды нужно подавать, никуда не денешься.
Другое дело - по какому событию эти команды подавать...

тут события быть не должно... в вакууме это должно быть так: вторая программа вообще тупо стоит и молчит... первая просто берет данные из Edit-а второй программы и что-то с ними делает..
вот мне и интересно, есть ли такие команды, т.к. сегодня весь день просидел в инете и толком ничего не нашел... все, что есть - работает с заголовком окна
Сами понимаете, не очень приятно, когда пользователь работает с программой, а в ней заголовок постоянно мигает

[B_N]

Сообщение от Спартак

Эти функции работают с заголовком формы (тот, который Caption), а мне нужны данные из текстового поля (TEdit)

Они работают с любыми окнами. Из другого процесса через WM_GETTEXT берите текст.

[Спартак]

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

Они работают с любыми окнами. Из другого процесса через WM_GETTEXT берите текст.

каждый человек специализируется в своей сфере... я в первый раз столкнутся с такой необходимостью... если есть примеры исходников - выложите пожалуйста... буду очень благодарен

[mihali4]

первая просто берет данные из Edit-а второй программы и что-то с ними делает

А когда она должна взять эти данные? Когда в эдите будет нажат энтер? Или она все время должна отслеживать изменения в эдите? Если так - сделайте "взять данные" по таймеру или по событию изменения содержимого эдита...