Нужно получить текст из 2х edit

[aesoem]

Сдравсвуйте, вот задался вапросом, как получить текст каторый введен в чужое приложение: там 2 edit. и мне нужно скопировать информацию из них в свою программу. Я только хендл самого окна смог найти)

var
  k:hwnd;
begin
k:= FindWindow(nil, 'название окна');
if k<>0 then 
 ...

а что далльше помогите, целый день роюсь...

[Alex Cones]

MSDN + GetWindowText

[m.a.x.i.m]

k2:=FindWindowEx(k,0,'Edit',nil);//ищем первый edit
k3:=FindWindowEx(k,k2,'Edit',nil);//ищем второй edit

[aesoem]

вот так сделал: компиляция проходит успешно но при нажатии на кнопку появляется это

Source Breakpoint at $0051A92B: C:\Documents and Settings\александр\Мои документы\Unit1.pas line 56. Process Project1.exe (3980)

k,k2,k3:hwnd;
login,pass:String;
begin
k:= FindWindow(nil, 'Lineage II');
if k<>0 then
begin
k2:=FindWindowEx(k,0,'Edit',nil);//ищем первый edit
k3:=FindWindowEx(k,k2,'Edit',nil);//ищем второй edit
GetWindowText(k2,PChar(login),15);
GetWindowText(k3,PChar(pass),15);
end;
sedit1.Text:=login;
end;[/CODE] я так понимаю както я не так перевожу полученый текст в edut1.text своей программы?

 sedit1.Text:=login;

[m.a.x.i.m]

k,k2,k3:hwnd;
login,pass:pchar;
begin
k:= FindWindow(nil, 'Lineage II');
if k<>0 then
begin
k2:=FindWindowEx(k,0,'Edit',nil);//ищем первый edit
k3:=FindWindowEx(k,k2,'Edit',nil);//ищем второй edit
GetWindowText(k2,login,15);
GetWindowText(k3,pass,15);
end;
sedit1.Text:=login;
end;

[aesoem]

кубики какието возвращает )

[m.a.x.i.m]

k,k2,k3:hwnd;
login,pass:string;
a,b:integer;
begin
k:= FindWindow(nil, 'Lineage II');
if k<>0 then
begin
k2:=FindWindowEx(k,0,'Edit',nil);//ищем первый edit
k3:=FindWindowEx(k,k2,'Edit',nil);//ищем второй edit
a:=GetWindowTextLength(k2);
b:=GetWindowTextLength(k3);
setlength(login,a);
setlength(pass,b);
GetWindowText(k2, login, a+1);
GetWindowText(k3, pass, b+1);
end;
sedit1.Text:=login;
end;

проверил - работает.

[aesoem]

странно но моя делфля ругается на

GetWindowText(k2, login, a+1);
GetWindowText(k3, pass, b+1);

[DCC Error] Unit1.pas(58): E2010 Incompatible types: 'string' and 'PWideChar'
[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'string' and 'PWideChar'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[profi]

Напиши так:

var
   login, pass : array[0..255] of char;

Вместо:

 login, pass : string;