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]

не за что

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