Скачать: CL | DM;

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

← →
DevMaster ©   (2003-07-17 16:58) [0]

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

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

---

← →
Толик ©   (2003-07-17 17:22) [1]

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

---

← →
X-shadow ©   (2003-07-17 17:24) [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;
}

---

← →
Devmaster ©   (2003-07-17 17:30) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c