| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить текст из TEdit не моего приложения?
Шустрый © (2003-08-11 12:22:00)
AHandle := FindWindow("Notepad", nil);
Win32Check(AHandle <> 0);
memo1.Text := GetWindText(AHandle);
Так допустим я получаю текст из блокнота в свой TMemo, а как сделать то же самое с TEdit? Спасибо!
clickmaker (2003-08-11 18:53:00) [1]
А какая разница: Memo, Edit?.. На уровне API это все равно один класс окна "EDIT", только в случае с Memo он многострочный
Шустрый (2003-08-11 17:08:00) [2]
2 Игорь Шевченко: так тебя устроит? Я же писал что допустим.
function GetWindText(AHandle: THandle): String;
var
cb : DWord;
begin
cb := SendMessage(AHandle, WM_GETTEXTLENGTH, 0, 0);
SetLength(Result, cb);
if cb > 0 then
SendMessage(AHandle, WM_GETTEXT, cb+1, LParam(@Result[1]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow("Notepad", nil);
Win32Check(AHandle <> 0);
AHandle := FindWindowEx(AHandle, 0, "Edit", nil);
Win32Check(AHandle <> 0);
Memo1.Text := GetWindText(AHandle);
end;
Игорь Шевченко (2003-08-11 13:52:00) [3]
Так ты не получишь текст из блокнота...
| |
