Получить содержимое Memo в чужой программе.

[Иллидан]

Вообщем, есть многострочное текстовое поле. Причем в этом текстовом поле(в конце текста) мигает индекатор курсора, хотя редактировать и как-то менять его нельзя. Подскажите, как получить содержимое этого поля? Или, хотя бы, последнюю строчку.

[Dj_smart]

memo1.Lines - содержимое твоего поля
memo1.Lines[memo1.Lines.Count-1] - последняя строчка

[Иллидан]

memo1.Lines - содержимое твоего поля
memo1.Lines[memo1.Lines.Count-1] - последняя строчка

Не моего многострочного поля, чужого. В смысле, поля какой-нибудь сторонней программы. Извиняюсь, что не уточнил.

[_Dmitry]

Тема уже обсуждалась.
Если вам это нужно один раз, то воспользуйтесь программой http://s0m.narod.ru/iws.html
Или смотрите здесь http://www.programmersforum.ru/showthread.php?t=9066 был готовый пример

[Иллидан]

Обсуждалось не совсем то. Мне надо получить текст Memo, в котором мигает курсор. Больше ничего о нем неизвестно.

[B_N]

Сообщение от Иллидан

Обсуждалось не совсем то. Мне надо получить текст Memo, в котором мигает курсор. Больше ничего о нем неизвестно.

Значит надо получить его HWND через GetFocus.

[Иллидан]

Значит надо получить его HWND через GetFocus.

А как это работает?

А почему у меня по таймеру не работает такой код?
label1.caption:=inttostr(GetFocus);
Как только окно моей программы теряет фокус ввода(я открываю файл блокнотом -курсор стоит в нем), у меня caption становится равным нулю, а не хандлу окна блокнота?

[Dj_smart]

Потому, что мышка уже какбы не принадлежит к твоей форме. Это тоже самое, что вводить текст в другую форму и получить этот текст в первой без Hook'a.

[B_N]

Сообщение от Иллидан

А как это работает?

А почему у меня по таймеру не работает такой код?
label1.caption:=inttostr(GetFocus);
Как только окно моей программы теряет фокус ввода(я открываю файл блокнотом -курсор стоит в нем), у меня caption становится равным нулю, а не хандлу окна блокнота?

Потому, что я не заметил Ваш предыдущий пост

В смысле, поля какой-нибудь сторонней программы.

GetFocus возвращает что-то разумное только если окно с фокусом принадлежит данному потоку. Сделайте так:

	HWND hFocusWnd = ::GetFocus();
	if(!hFocusWnd){
		GUITHREADINFO ti;
		HWND hFGWindow = ::GetForegroundWindow();
		DWORD dwFGThread = GetWindowThreadProcessId(hFGWindow, NULL);
		if(dwFGThread){
			RtlZeroMemory(&ti, sizeof GUITHREADINFO);
			ti.cbSize = sizeof GUITHREADINFO;
			GetGUIThreadInfo(dwFGThread, &ti);
			hFocusWnd = ti.hwndFocus;
		}
	}

[Иллидан]

А можно это по дельфийский переписать? Просто, не очень я разбираюсь в API и не знаю, что такое GUITHREADINFO.