Как получить данные с чужой программы в свою?

[pepesina]

Что так и никто мне не поможет(((....?

[eoln]

h:=FindWindow(PChar('TeamViewer'),n il);

Это перепутано местами.

Едитов там несколько, поэтому циклически искать надо. Дополнительно надо распознать какой едит чему соответствует. Для этого ищем уникальное свойство, например, высоту едитов относительно формы. Высоту едитов относительно формы можно узнать с помощью WinSpy++.

var
  h,h1:HWND;
  s: string;
  r1: TRect;
begin
  h:=FindWindow(nil, PChar('TeamViewer'));
  h1:=FindWindowEX(h,0,PChar('Edit'),nil);
  SetLength(s, 12);//собственно, 12 вполне хватит - пароль ведь не длинный должен быть?
  while h1<>0 do begin
    Winapi.Windows.GetWindowRect(h1, r1);//эх как длино-то в XE2 :)
    Winapi.Windows.ScreenToClient(h, r1.TopLeft);
    SendMessage(h1, WM_GETTEXT, 12, integer(s));
    if r1.Top = 166  then showmessage('код: '+s);
    if r1.Top = 197 then showmessage('пароль: '+s);
    h1:=FindWindowEX(h,h1,PChar('Edit'),nil);
  end;
end;

Чтобы реагировать на изменения текста, либо перехват либо таймер.

[pepesina]

Сообщение от eoln

Это перепутано местами.

Едитов там несколько, поэтому циклически искать надо. Дополнительно надо распознать какой едит чему соответствует. Для этого ищем уникальное свойство, например, высоту едитов относительно формы. Высоту едитов относительно формы можно узнать с помощью WinSpy++.

var
  h,h1:HWND;
  s: string;
  r1: TRect;
begin
  h:=FindWindow(nil, PChar('TeamViewer'));
  h1:=FindWindowEX(h,0,PChar('Edit'),nil);
  SetLength(s, 12);//собственно, 12 вполне хватит - пароль ведь не длинный должен быть?
  while h1<>0 do begin
    Winapi.Windows.GetWindowRect(h1, r1);//эх как длино-то в XE2 :)
    Winapi.Windows.ScreenToClient(h, r1.TopLeft);
    SendMessage(h1, WM_GETTEXT, 12, integer(s));
    if r1.Top = 166  then showmessage('код: '+s);
    if r1.Top = 197 then showmessage('пароль: '+s);
    h1:=FindWindowEX(h,h1,PChar('Edit'),nil);
  end;
end;

Чтобы реагировать на изменения текста, либо перехват либо таймер.

Winapi что ето за переменная? в етих строчках ошибка?

[eoln]

Сообщение от pepesina

Winapi что ето за переменная? в етих строчках ошибка?

Это так в XE2, я же намёк в комментах дал. Пиши без этого WinApi, просто Windows.GetWindowRect

[pepesina]

Сообщение от eoln

Это так в XE2, я же намёк в комментах дал. Пиши без этого WinApi, просто Windows.GetWindowRect

Большое Вам спасибо!!Как я могу Вас отблагодарить!!!!
Вы реально профессионал своего дела!!!На 6 форумах никто не мог дать ответ!

[pepesina]

Сообщение от eoln

Это перепутано местами.

Едитов там несколько, поэтому циклически искать надо. Дополнительно надо распознать какой едит чему соответствует. Для этого ищем уникальное свойство, например, высоту едитов относительно формы. Высоту едитов относительно формы можно узнать с помощью WinSpy++.

var
  h,h1:HWND;
  s: string;
  r1: TRect;
begin
  h:=FindWindow(nil, PChar('TeamViewer'));
  h1:=FindWindowEX(h,0,PChar('Edit'),nil);
  SetLength(s, 12);//собственно, 12 вполне хватит - пароль ведь не длинный должен быть?
  while h1<>0 do begin
    Winapi.Windows.GetWindowRect(h1, r1);//эх как длино-то в XE2 :)
    Winapi.Windows.ScreenToClient(h, r1.TopLeft);
    SendMessage(h1, WM_GETTEXT, 12, integer(s));
    if r1.Top = 166  then showmessage('код: '+s);
    if r1.Top = 197 then showmessage('пароль: '+s);
    h1:=FindWindowEX(h,h1,PChar('Edit'),nil);
  end;
end;

Чтобы реагировать на изменения текста, либо перехват либо таймер.

подскажите,еще как перехват делать?!

[Пепел Феникса]

Это перепутано местами.

только это и ошибка, в остальном все верно.

[pepesina]

Сообщение от Пепел Феникса

только это и ошибка, в остальном все верно.

Человек написал, дописал все верно и все сразу работает...и без всяких там ошибок..и всяких но...что сказать профи!!!

[Пепел Феникса]

я пришел с работы, и просто написал код по памяти, не проверяя.
если бы вы читали хоть немного параметры функций, то могли бы и исправить сами.

[pepesina]

Сообщение от Пепел Феникса

я пришел с работы, и просто написал код по памяти, не проверяя.
если бы вы читали хоть немного параметры функций, то могли бы и исправить сами.

не мути воду....так бы и сказал,что по памяти написал..тема закрыта можна удалять!