Текст edit-а из другого приложения.

← →
Sheva (2003-02-17 15:17) [0]

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

← →
Sheva (2003-02-17 15:51) [1]

Вобщем, моя проблема состоит в получении дескриптора edit-a из другого приложения.

← →
Guerrillero © (2003-02-17 16:24) [2]

FindWindow (EnumWindows)
FindWindowEx (EnumChildWindows)
WM_GETTEXTLENGTH
WM_GETTEXT

← →
Sheva (2003-03-12 16:19) [3]

Пытаюсь так:

var
i: integer;
st: pchar;
begin

i:=sendmessage(FindWindowEx(FindWindow(nil, "start"), 0, nil, "Edit1"),wm_gettextlength,0,0);
getmem(st,i+1);
sendmessage(FindWindowEx(FindWindow(nil, "start"), 0, nil, "Edit1"),wm_gettext,i+1,integer(st));
ShowMessage(st);

что-то делаю не так :-(

Заголовок приложения "start". В edit1 находиться имя пользователя для конекта к базе данных.

i:=sendmessage(FindWindowEx(FindWindow(WindowClass, "start"), 0, "TEdit", "Edit1"),wm_gettextlength,0,0);

Текст edit-а из другого приложения. Найти похожие ветки