почему не копируется текст второго edit-а?

← →
mox (2003-07-23 16:20) [0]

Добрый вечер ... или день, Мастера!
В окне два edit-а, почему не копируется текст второго edit-а?
Вернее, он копируется, но "пустой"... :

procedure TForm1.FormCreate(Sender: TObject);
const
Wname = "WindowName";
var
Wnd: HWND;
l: integer;
s: string;
Control: array [0..127] of char;
procedure NextEdit;
begin
repeat
Wnd := GetWindow(Wnd, GW_HWNDNEXT);
( Wnd, Control, SizeOf(Control) Добрый вечер ... или день, Мастера!
В окне два edit-а, почему не копируется текст второго edit-а?
Вернее, он копируется, но "пустой"... :

procedure TForm1.FormCreate(Sender: TObject);
const
Wname = "WindowName";
var
Wnd: HWND;
l: integer;
s: string;
Control: array [0..127] of char;
procedure NextEdit;
begin
repeat
Wnd := GetWindow(Wnd, GW_HWNDNEXT);
GetClassName(Wnd, Control, SizeOf(Control))
until Control = "Edit";
l:=sendmessage(wnd,wm_gettextlength,0,0);
setLength(s,l);
sendmessage(wnd,wm_gettext,l+1,LParam(@s[1]));
showmessage(s);
end;
BEGIN
Wnd := FindWindow(nil, Wname);
Wnd := GetWindow(Wnd, GW_CHILD);
NextEdit; // текст 1-го edit
NextEdit; // текст 2-го edit
halt;
end;

← →
Reindeer Moss Eater (2003-07-23 16:43) [1]

Потому что второй эдит служит для ввода пароля

почему не копируется текст второго edit-а? Найти похожие ветки