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

[pepesina]

Есть программа teamviewer(Portable) мне нужно взять данные id и пароль и передать их в свою программу?Разные способы делал никак не получается!Кто знает как это сделал напишите!Буду очень благодарен!

Програмку teamviewer(Portable) вложу, так как в разной программы разные хэнделы этих edit-oв!!!

Я еще выклал картинку,чтоб было понятно,что мне нужно!

я уже сделал, первый айди переносится,

а как сделать.что еще и пасс переносился?

вот код он работаеть только для первого едита..а как сделать.что б и для второго работало?буду очень благодарен!Зарание спасибо

procedure TForm1.Button1Click(Sender: TObject);
var
 h:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'TeamViewer'),0,'Edit',nil);
//Edit1.Text:= IntToStr(h);
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Edit1.Text:= String(s);
Showmessage(s);
end;

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

function phGetWindowText(h:THandle):string;
begin
 SetLength(Result,GetWindowTextLength(h));
 SetLength(Result,GetWindowText(h,@Result[1],Length(Result)+1));
end;

var
h,h1:HWND;
begin
h:=FindWindow(PChar('TeamViewer'),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
ID:=phGetWindowText(h1);
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
Pass:=phGetWindowText(h1);

в той же теме пример был...

[pepesina]

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

function phGetWindowText(h:THandle):string;
begin
 SetLength(Result,GetWindowTextLength(h));
 SetLength(Result,GetWindowText(h,@Result[1],Length(Result)+1));
end;

var
h,h1:HWND;
begin
h:=FindWindow(PChar('TeamViewer'),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
ID:=phGetWindowText(h1);
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
Pass:=phGetWindowText(h1);

в той же теме пример был...

Pass эт какого типа переменная? и как мне ее вывести на форму?

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

Pass это обычная строка, вывести можно хоть в Label.

[Smitt&Wesson]

Черех HANDLE окна можно. Но это на С++. Как в Дельфине, не зна.

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

Smitt&Wesson, это WinAPI, а не С++.

[pepesina]

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

Pass это обычная строка, вывести можно хоть в Label.

а что ето за переменная ID? какого она типа?

[pepesina]

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

function phGetWindowText(h:THandle):string;
begin
 SetLength(Result,GetWindowTextLength(h));
 SetLength(Result,GetWindowText(h,@Result[1],Length(Result)+1));
end;

var
h,h1:HWND;
begin
h:=FindWindow(PChar('TeamViewer'),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
ID:=phGetWindowText(h1);
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
Pass:=phGetWindowText(h1);

в той же теме пример был...

то ли я тупой, то ли сани не едут

не работает(((

function TForm1.phGetWindowText(h: THandle): string;
begin
 SetLength(Result,GetWindowTextLength(h));
 SetLength(Result,GetWindowText(h,@Result[1],Length(Result)+1));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
h,h1:HWND;
ID,Pass:string;
begin
h:=FindWindow(PChar('TeamViewer'),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
ID:=phGetWindowText(h1);
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
Pass:=phGetWindowText(h1);
label1.Caption:=Pass;
end;

[Человек_Борща]

Попробуйте использовать EnumChildWindows.

[pepesina]

Сообщение от Человек_Борща

Попробуйте использовать EnumChildWindows.

А не подскажите как это сделать...просто уже третий день бъюсь над этим..голова уже пухнет...