Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можно передать данные из текушего приложения другую и нажать [D7]

Xmen © (2008-05-26 10:18:00)
Как можно передать данные из текушего приложения другую и нажать кнопку.
Есть приложения агента, при получения сообщения от этого приложения нужно нажать на этого сообщения и потом чтобы открылся приложения где бы можно было почитать этого сообщения. У меня с этого приложения запускается другая приложения но там есть 2 поля куда нужно написать логин и порол и нажимать на кнопку. Логин и парол берутся с приложения агента.
Как можно реализовать это?.

TForumHelp (2008-05-27 18:03:00) [1]

> небуд

> помощ

ай-ай-ай!!! =)

Xmen (2008-05-27 10:32:00) [2]
Сделал так может кому небуд пригодится

var
h :LongInt;
h2 :LongInt;
h3 :LongInt;
h4 :LongInt;
h5 :LongInt;
pc :PChar;
begin
ChDir('d:\MyProgs\');
ShellExecute(Application.Handle,'open','MyProgs.exe',nil,nil,0);
sleep(2000);

GetMem(pc,1024);
h:=FindWindow(0,'Вход в программу');
h5 := FindWindowEx (h,0,'TRzGroupBox','');
h3 := FindWindowEx (h5,0,'TEdit','');
SendMessage(h3, WM_SETTEXT, 0, LParam(PChar('admin')));
h4 := GetNextWindow(h3,GW_HWNDNEXT) ;
SendMessage(h4, WM_SETTEXT, 0, LParam(PChar('admin')));
h2 := FindWindowEx (h,0,'TRzBitBtn','');
SendMessage(h2,WM_LBUTTONDOWN,0,0);
SendMessage(h2,WM_LBUTTONUP,0,0);
FreeMem(pc);

код не мой нашел в Королевстве и подогнал под себя. :)
Спасибо за помощ.

Xmen (2008-05-26 15:46:00) [3]
Ни чего не помогло Вот пример которые я нашел.
var
s:String;
begin
s:='6889';
SendMessage(wnd,WM_SETTEXT,0,Integer(s));
end;

PostMessage(wnd,BM_CLICK,0,0);

только как его использовать?
у меня дает ощибку - wnd непонимает его.

Anatoly Podgoretsky (2008-05-26 14:40:00) [4]
Это он порол, а надо бы его.

ага0 (2008-05-26 13:54:00) [5]

> написать логин и порол

Мало тя пороли, мало!

SergeyIT (2008-05-26 12:58:00) [6]
Кто там-м-м.

> Григорьев Антон - автор статей про чужие приложения

Vlad Oshin (2008-05-26 11:36:00) [7]
http://www.delphikingdom.com/
Григорьев Антон - автор статей про чужие приложения

Vlad Oshin (2008-05-26 11:36:00) [8]
Удалено модератором

Vlad Oshin (2008-05-26 11:36:00) [9]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »