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

GetWindowText - в чём загвоздка?   Найти похожие ветки 

← →
SHS   (2003-11-16 11:14) [0]

Просто пытаюсь считать техт из 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 11:21) [1]

Buffer - не 255, его надо бы определит с помощью GetWindowtextLength,и прибавить +1

---

← →
Prov ©   (2003-11-16 11:21) [2]

Buffer - не 255, его надо бы определит с помощью GetWindowtextLength,и прибавить +1

---

← →
SHS   (2003-11-16 11:27) [3]

To Prov: Спасибо большое, очень Вам признателен за помощь, всё работает :)

---

← →
Prov ©   (2003-11-16 19:43) [4]

не за что

---

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

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



Память: 0.45 MB
Время: 0.015 c