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

Вниз

Как можно получить текст с поля Edit другой программы   Найти похожие ветки 

 
Veter   (2005-12-05 06:52) [0]

Я пытался вот так:
var
wnd :Hwnd;
Nm: Array[0..255] of Char;
begin
Sendmessage(wnd,wm_gettext,wparam(90),lparam(strpas(nm)));
edit1.text:=String(nm);
end;

в чём может быть ошибка?


 
Leonid Troyanovsky ©   (2005-12-05 08:40) [1]


> Veter   (05.12.05 06:52)  

> Sendmessage(wnd,wm_gettext,wparam(90),lparam(strpas(nm)));


Для начала, д.б. LParam(@nm), а не string.
Во-вторых, возможно, Edit wnd определен неверно.
В-третьих, возможно, что это вовсе не EDIT.

--
Regards, LVT.


 
Veter   (2005-12-05 09:27) [2]

а как сделать чтобы он длину текста сам определял?


 
begin...end ©   (2005-12-05 09:28) [3]

> Veter   (05.12.05 09:27) [2]

Переформулируйте вопрос.


 
Veter   (2005-12-05 09:33) [4]

> Переформулируйте вопрос.

ну чтобы wparam сам определил


 
begin...end ©   (2005-12-05 09:37) [5]

> Veter   (05.12.05 09:33) [4]

WM_GETTEXTLENGTH послать?


 
Veter   (2005-12-05 09:41) [6]

> Leonid Troyanovsky ©   (05.12.05 08:40) [1]
Всё спасибо!! Очень даже помог!!



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

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

Наверх




Память: 0.45 MB
Время: 0.013 c
3-1130503241
Брат
2005-10-28 16:40
2005.12.18
Передача параметра


5-1117163646
Rep
2005-05-27 07:14
2005.12.18
Обработка клавиши VK_UP(DOWN) потомком TCustomControl


14-1132644606
Piter
2005-11-22 10:30
2005.12.18
На новых материнках нету LPT?


4-1129707209
kolos_rus
2005-10-19 11:33
2005.12.18
Блокировка клавиатуры и мыши


2-1133276360
Piero
2005-11-29 17:59
2005.12.18
Подскажите, про класс





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский