Проблема с SendMessage

[SERG1980]

Суть такова: В окно авторизации чужой программы отсылаю в окно логина и пароля свои данные через SendMessage.Сначала получаю хэндлы этих окон и название класса (эдитов). Всё нормально отправляется но вот пишет прога что пароль введён не верно, хотя пробовал считать обратно текст окна и ведь пароль то правильный

Список свех компонентов на чужой форме и название их классов получаю следующим образом

Procedure GetSubChild(MainH:HWND; HList:TStringList);
Var ChildH:HWND;			 
    ClNameCH:array[0..255] of Char;
      NameCH:array[0..255] of Char;
begin
 if MainH=0 then Exit;
 ChildH:=FindWindowEx(MainH,0,nil,nil); 
 while (ChildH <> 0) do		     // Есть еще что искать ?
    begin
     GetClassName(ChildH,ClNameCH,255);
     GetWindowText(ChildH,NameCH,255);
    //Заносим в стринг лист Хэндл Имя класса Надпись(если таковая имеется)
     HList.Add(IntToStr(ChildH)+':'+ClNameCH+'|'+NameCH);
     Application.ProcessMessages;
     GetSubChild(ChildH,HList);
     ChildH:=FindWindowEx(MainH,ChildH,nil,nil);
    end;
end;

Далее отправляем логин и пароль + выбираем вход под главным админом (выбирается из комбобокса). После этого имитируем нажатие на кнопку ОК

procedure TForm1.Button1Click(Sender: TObject);
var H:HWND;
    SL:TStringList;
    i:integer;
begin
 SL:=TStringList.Create;
 H:=FindWindow(nil,'Введите имя пользователя и пароль (1.10.8)');
// H:=FindWindow(nil,'Form1');
 GetSubChild(H,SL);
 Listbox1.Items.Assign(SL);
 for i:=0 to SL.Count-1 do
 begin
  if Pos('TEdit',SL[i])<>0 then
   if Pos('localhost',SL[i])=0 then
   SendMessage(StrToInt(Copy(SL[i],1,Pos(':',SL[i])-1)),WM_SETTEXT, 0,LParam(PCHar('ADMIN')));//вот здесь и отправляем логин и пароль (ADMIN ADMIN)
  if Pos('TComboBox',SL[i])<>0 then
  SendMessage(StrToInt(Copy(SL[i],1,Pos(':',SL[i])-1)),CB_SETCURSEL,Integer(2),0);
  if Pos('TBitBtn',SL[i])<>0 then
   if Pos('OK',SL[i])<>0 then
   begin
    SL.Free;
    SendMessage(StrToInt(Copy(SL[i],1,Pos(':',SL[i])-1)),BM_CLICK,0,0);
    exit;
   end;
 end;
end;

Причём если стереть пароль и ввести вручную то нормально

[Stilet]

Кстати а каков класс окна которому ты отправляешь текст?

P.s. Пардон затупил SendMessage правильне чем postMessage

[SERG1980]

Класс TEdit

[Stilet]

Я с похожей проблемой сталкивался одной системе.
Там помимо ввода в Эдит нужно было послать символ Энтера... Может и у тебя похожая проблема?

[SERG1980]

С ентером не прокатило. Попробовал своё окно авторизации сделать, послал пароль, всё нормально. Может как то по мудрёному пароль сравнивается. Причём в блокноте пишу слово admin поотм копирую (ctrl+c ctrl+v) в окна то нормально
После нажатия на ОК идёт подключение к БД FireBird. я так думаю сравнение данных идёт из бд, может после пердачи пароля через SendMessage кодировка меняется и приплыли не этом
Вот окно этой проги.

[Stilet]

SERG1980

А ты попробуй (на всякий случай) посимвольно через WM_CHAR вводить.
Мало ли какое сообщение оно обрабатывает.

[SERG1980]

Это как придётся через цикл чтоли ?
Вообщем и так не хочет работать

[Stilet]

через цикл чтоли ?

Ага. Именно это я и имею ввиду. Прям как будто руками посимвольно вводить.
Мож там проверка пароля как раз срабатывает только в этом случае.

[SERG1980]

Вообщем Stilet спасибоныч тебе разобрался именно по чару передавал и сначала надо было вводить логин а потом пароль а у меня в цикле первым заполнялось окно пароля. не знаю какая разница но работает. К сожалению почему то не могу тебе поставить плюсик

[Stilet]

SERG1980

Незачто, я и сам не знаю в чем прикол, но сталкивался уже с такими программами.
Теперь всегда только WM_CHAR использую - надежнее