Скачать: CL | DM;

Проблема с 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.972 c