| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Передача текста в другое приложение

DevMaster ©   (2003-07-17 16:58:00) 

Есть окно - форма ввода пароля. Необходимо передать в поле ввода(TEdit) текст и нажать на ENTER!

Начало есть: (но оно меняет заголовок окна!)
var EditHandle: THandle;
TextToSet: PChar;
begin
edithandle:= FindWindow(nil,"ProgaName");
SendMessage(EditHandle, WM_SETTEXT, 0, Integer(TextToSet));
end;

---

Devmaster   (2003-07-17 17:30:00) [1]

for Tolik нет это обычная форма ввода!

---

X-shadow   (2003-07-17 17:24:00) [2]

HWND i_hwnd=NULL;
BOOL CALLBACK EnumChildProc(
HWND hwnd, // handle to child window
LPARAM lParam ( hwnd,text,255)

HWND i_hwnd=NULL;
BOOL CALLBACK EnumChildProc(
HWND hwnd, // handle to child window
LPARAM lParam // application-defined value
)
{
char text[255];
GetClassName(hwnd,text,255);

if(strstr(text,"Internet"))
{
i_hwnd=hwnd;
return FALSE;
}
return TRUE;
}
Activate()
{
HWND ie=::FindWindow("IEFrame",NULL);

EnumChildWindows(ie,EnumChildProc,NULL);
if(i_hwnd)
{

SetWindowText(i_hwnd,"То что тебе сюда надо вписать");
}
return S_OK;
}

---

Толик   (2003-07-17 17:22:00) [3]

Для парольных окон ввода (по крайней мере изготовленных MicroSoft"ом) это не проходит, для остального работает а вот для парольных окон - нет...

---

Наверх