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

← →
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;
}

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

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