работа с чужими окнами

[D_E_N]

Привет всем) перелопатил кучу сайтов, но ответа не могу найти на свой вопрос, надеюсь на вашу помощь) пишу програмку автоматизации ввода логина и пароля. Она вводит но лишь в логин, а пароль не заполняет, и вместо нажатия кнопки OK, она ставит галочку для сохранения имени пользователя. Вот код

for I := 0 to List.Count - 1 do
  begin
  TheWindowHandle := FindAWindow(list[i], '');
UnPro:= FindWindow(nil, pchar(list[i])); //Где меню с вводом пароля
UserText := FindWindowEx(UnPro, 0, 'Edit', nil); // Где само поле на этом меню
passtext:=FindWindowEx(UnPro, 0, 'Edit', nil);
  if (UnPro <> 0) and (passtext <> 0) then
  begin
 SendMessage(PassText, WM_SETTEXT, 0, lParam(LPCTSTR(txt))); //Пихаем пароль
 SendMessage(UserText, WM_SETTEXT, 0, lParam(LPCTSTR('user'))) ;
 OKbutton :=FindWindowEx(UnPro, 0, 'Button', nil); //Ищем сокровенную OK
 SendMessage(OKbutton, BM_CLICK, 0, 0); //Жмёт ОК принять пароль 
  end;
  end;
list.Free;

заранее благодарен

[Fedor666]

Если это окошко берется из ресурсов, может проще узнать ID нужных контролов (они не меняются) и слать сообщения при помощи SendDlgItemMessage?

LONG SendDlgItemMessage(
    HWND hDlg,		// handle of dialog box
    int nIDDlgItem,	// identifier of control
    UINT Msg,		// message to send
    WPARAM wParam,	// first message parameter
    LPARAM lParam	// second message parameter
);

[D_E_N]

[QUOTE=Fedor666;923014]Если это окошко берется из ресурсов, может проще узнать ID нужных контролов (они не меняются) и слать сообщения при помощи SendDlgItemMessage?

LONG SendDlgItemMessage(
    HWND hDlg,		// handle of dialog box
    int nIDDlgItem,	// identifier of control
    UINT Msg,		// message to send
    WPARAM wParam,	// first message parameter
    LPARAM lParam	// second message parameter
);

Спасибо попробую)