Главная страница
    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.043 c
2-1148066031
Призрак
2006-05-19 23:13
2006.06.04
В чём разница между Form1.CLOSE и Form1.HIDE ?


6-1139192754
Delphi_is_cool
2006-02-06 05:25
2006.06.04
Определить ip dialup сервера


2-1147621441
wirg
2006-05-14 19:44
2006.06.04
Помогите с запросом


2-1146751850
DAn13
2006-05-04 18:10
2006.06.04
TreeView


15-1146752946
Pazitron_Brain
2006-05-04 18:29
2006.06.04
Почему в России сложился стереотип,





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