Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Как вытащить текст из эдита чужого окна???   Найти похожие ветки 

 
nikkie   (2002-01-10 12:08) [9]

попробую я объянить. кидаешь на форму Edit + Timer. пишешь обработчик таймера.


procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
n : integer;
s : string;
begin
h := WindowFromPoint(Mouse.CursorPos);
if h <> 0 then begin
n := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
SetLength(s, n);
SendMessage(h, WM_GETTEXT, WPARAM(n), LPARAM(PChar(s)));
Edit1.Text := s;
end;
end;


ничего сложного нет - надо только внимательно читать документацию.

про GetWindowText SDK говорит:
This function cannot retrieve the text of an edit control in another application.

эксперимент показывает, что не только из edit control :)

то же самое в MSDN
However, GetWindowText cannot retrieve the text of a control in another application.

эксперимент показывает, что из некоторых контролей (например, button или static) все-таки вытаскивает :)

чудесны и неисповедимы пути MS! что там внутрях GetWindowText творится - неизвестно. но документация все же ясно говорит, что надо использовать WM_GETTEXT




Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.005 c
7-19360
denis2001
2001-12-03 17:53
2002.03.07
Информация о системе( нужен модуль CRT.DCU или WINCRT.DCU


14-19322
vajo
2002-01-22 15:56
2002.03.07
Время


4-19383
soloboev
2001-12-05 17:39
2002.03.07
ShellExecute


6-19278
End
2001-12-19 22:47
2002.03.07
Help!!!


1-19174
lightix
2002-02-18 13:22
2002.03.07
Как сделать поиск подстроки в ListBox?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский