| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
GetWindowText - в чём загвоздка? [D7, WinXP]
SHS © (2003-11-16 11:14:00)
Просто пытаюсь считать техт из Edit и вывести его в MessageBox,
выводятся какие-то каракули, а не мой текст. Вот моя процедурка, всё ж здесь верно, но почему-то не работает. Подскажите кто сталкивался с такой ситуацией, как справиться?
procedure TForm1.Button1Click(Sender: TObject);
var
Buff: PChar;
MainWin, EditWin: hWnd;
begin
MainWin := FindWindow("TForm1", nil);
EditWin := FindWindowEx(MainWin, 0, "TEdit", nil);
GetWindowText(EditWin, Buff, 255);
MessageBoxA(handle, Buff, "Read", MB_ICONINFORMATION);
end;
Prov (2003-11-16 19:43:00) [1]
не за что
SHS (2003-11-16 11:27:00) [2]
To Prov: Спасибо большое, очень Вам признателен за помощь, всё работает :)
Prov (2003-11-16 11:21:00) [3]
Buffer - не 255, его надо бы определит с помощью GetWindowtextLength,и прибавить +1
Prov (2003-11-16 11:21:00) [4]
Buffer - не 255, его надо бы определит с помощью GetWindowtextLength,и прибавить +1
| |
