Как получить текст из TEdit не моего приложения?

← →
Шустрый (2003-08-11 12:22) [0]

AHandle := FindWindow("Notepad", nil);
Win32Check(AHandle <> 0);
memo1.Text := GetWindText(AHandle);
Так допустим я получаю текст из блокнота в свой TMemo, а как сделать то же самое с TEdit? Спасибо!

← →
Игорь Шевченко (2003-08-11 13:52) [1]

Так ты не получишь текст из блокнота...

← →
Шустрый (2003-08-11 17:08) [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;

← →
clickmaker (2003-08-11 18:53) [3]

А какая разница: Memo, Edit?.. На уровне API это все равно один класс окна "EDIT", только в случае с Memo он многострочный

Как получить текст из TEdit не моего приложения? Найти похожие ветки