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

← →
Xmen (2008-05-26 10:18) [0]

Как можно передать данные из текушего приложения другую и нажать кнопку.
Есть приложения агента, при получения сообщения от этого приложения нужно нажать на этого сообщения и потом чтобы открылся приложения где бы можно было почитать этого сообщения. У меня с этого приложения запускается другая приложения но там есть 2 поля куда нужно написать логин и порол и нажимать на кнопку. Логин и парол берутся с приложения агента.
Как можно реализовать это?.

← →
Vlad Oshin © (2008-05-26 11:36) [1]

http://www.delphikingdom.com/
Григорьев Антон - автор статей про чужие приложения

← →
Vlad Oshin © (2008-05-26 11:36) [2]

Удалено модератором

← →
Vlad Oshin © (2008-05-26 11:36) [3]

Удалено модератором

← →
SergeyIT © (2008-05-26 12:58) [4]

Кто там-м-м.

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

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

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

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

← →
Anatoly Podgoretsky © (2008-05-26 14:40) [6]

Это он порол, а надо бы его.

← →
Xmen (2008-05-26 15:46) [7]

Ни чего не помогло Вот пример которые я нашел.
var
s:String;
begin
s:="6889";
SendMessage(wnd,WM_SETTEXT,0,Integer(s));
end;

PostMessage(wnd,BM_CLICK,0,0);

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

← →
Xmen (2008-05-27 10:32) [8]

Сделал так может кому небуд пригодится

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);

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

> небуд

> помощ

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

Как можно передать данные из текушего приложения другую и нажать Найти похожие ветки