SendMessage,Delphi,Edit.

[Xemustre]

SendMessage(handle,WM_CHAR,ord('s') ,0);

Как оправить не S,а текст из Edit.

[Leo08]

Дело в том, что Вы пользуетесь параметром WM_CHAR (1 символ). Вы конечно можете передавать по одному символу (edit1.text[i]) из edit через цикл.
For i:=1 to length(edit1.text) do
Но можно параметром (вроде WM_SETTEXT) передать весь текст.
Только не забудьте взять edit1.text в параметры функции PChar() при передаче!

[Xemustre]

Спасибо тебе.Сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWND;
i:Integer;
s:string;
begin
s:=Edit1.Text;
wnd:=FindWindow(nil, 'window);
i:=length(s);
For i:=1 to length(edit1.text) do
SendMessage(wnd,WM_CHAR,ord(s[i]),0);
end;
end.

[Leo08]

А зачем Вы перед циклом i присваиваете?) оно же в цикле всё равно примет нужные значения...

[Aliens_wolfs]

Может это поможет

//Для отправки текста
procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWND;
s:string;
begin
s:=Edit1.Text;
wnd:=FindWindow(nil, 'window);
SetWindowText(wnd, Pchar(s));
end.

//для получения текста
procedure TForm1.Button2Click(Sender: TObject);
var
wnd:HWND;
s:string;
begin
wnd:=FindWindow(nil, 'window);
SetLength(s, $FFFF);
SetLength(s, GetWindowText(wnd, pchar(s), $FFFF));
Edit1.Text:=s;
end;

Либо можно через сообщения

// для отправки текста
procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWND;
s:string;
begin
s:=Edit1.Text;
wnd:=FindWindow(nil, 'window);
SendMessage(wnd, WM_SETTEXT, length(s), lParam(s));
end;

//для получения текста
procedure TForm1.Button2Click(Sender: TObject);
var
wnd:HWND;
s:string;
len: Integer;
begin
wnd:=FindWindow(nil, 'window);
len := SendMessage(wnd, WM_GETTEXTLENGTH, 0, 0)+1;
setLength(s, len);
SendMessage(wnd, WM_GETTEXT, len, lParam(s));
Edit1.Text:=s;
end;

[tolik2808]

Aliens_wolfs, помог спасибо)

а вот у меня трабл немного в другом
имею окно которое нашел через FindWindow(...); потом оказалось что у него есть 2 дочерных елемента одинакового класса. Первый елемент нахожу FindWindowEx(...), но только ПЕРВЫЙ. как обратится к остальным??? ранее спасибо за ответ)

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

внимательно почитать описание параметров FindWindowEx.
+ есть еще GetWindow.