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

Вниз

Проблема с SendMessage   Найти похожие ветки 

 
Volf_555 ©   (2006-03-14 18:56) [0]

Для изменения текста в другом окне использую следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
a:Integer;
z:String;
begin
s:=FindWindow(nil,"Безымянный - Блокнот");
a:=FindWindowEx(s,0,"Edit",nil);
z:="Проверка";
SendMessage(a,WM_SetText,0,Integer(z));
end;


А как с помощью SendMessage получить текст определённого окна (допустим - того же блокнота)?


 
Leonid Troyanovsky ©   (2006-03-14 18:59) [1]


> Volf_555 ©   (14.03.06 18:56)  

> А как с помощью SendMessage получить текст определённого
> окна (допустим - того же блокнота)?


WM_GETTEXT.

--
Regards, LVT.


 
Volf_555 ©   (2006-03-14 19:04) [2]

Использовал следующий код. Результат - пустая строка, хотя блокнот открытый и там есть текст.
procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
a:Integer;
z:String;
begin
s:=FindWindow(nil,"Безымянный - Блокнот");
a:=FindWindowEx(s,0,"Edit",nil);
SendMessage(a,WM_GetText,0,Integer(z));
ShowMessage(z);
end;

Что здесь не так?


 
Leonid Troyanovsky ©   (2006-03-14 19:23) [3]


> Volf_555 ©   (14.03.06 19:04) [2]

> Что здесь не так?


Строки 7 и 9.
И, память для результата будет, видимо, выделять Пушкин.

--
Regards, LVT.


 
clickmaker ©   (2006-03-14 19:23) [4]


> Volf_555 ©   (14.03.06 19:04) [2]

читай хелп про типы данных и работу с памятью.
Для z где она выделена?


 
Handle   (2006-03-14 21:40) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
s:hwnd;
a:hwnd;
z:array [0..100] of char;
begin
s:=FindWindow(nil,"Безымянный - Блокнот");
a:=FindWindowEx(s,0,"Edit",nil);
SendMessage(a,WM_GETTEXT,100,LongInt(@z));
ShowMessage(z);
end;



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

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

Наверх




Память: 0.45 MB
Время: 0.044 c
2-1147783724
DesperadO666
2006-05-16 16:48
2006.06.04
Помогите разобраться с pchar


2-1148013655
Мурзилка
2006-05-19 08:40
2006.06.04
Спец. символы


1-1145815933
Frostik
2006-04-23 22:12
2006.06.04
Получение вывода DOS-приложения в реальном времени


6-1138653753
Alexis
2006-01-30 23:42
2006.06.04
Мониторинг файла в Internet


15-1147432261
Layner
2006-05-12 15:11
2006.06.04
Можно ли в Excel поменять строки со столбиками местами?





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