Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Как вытащить текст из эдита чужого окна???   Найти похожие ветки 

← →
XM-AD   (2002-01-08 16:20) [7]

To Alx2: А Ваш пример я тоже не допонял :( Вставил вместо SayIt(txt); -> MessageBox(0,PChar(txt),"Edit",mb_OK); и удивился!!! - какой адрес я не ставля вместо $000201BE, везде выволдится только Panel1... Ну и еще (читай в коде) Объясните, пожалуйста!!! А то мне уже дурно :(


Procedure TForm1.Panel1Click(Sender: TObject);
Var hwnd : THandle;
txt : String;
Begin
hwnd := $000201BE; // Какой-то хэндл (Edit от Пуск->Выполнить)
//то же сомое и $300101BE и $040171BE и $00000000 и в принципе
//любой другой адрес :( кроме...
//ЕСЛИ подставить $FFFFFFF то в результате (т.е. в MessageBox-e
//выводится Program Manger (с одной стороны это радует, с
//другой - тупик превращается в кольцо :( Выход только сверху :(
SetLength(txt,100);
SendMessage(hwnd,WM_GETTEXT,100,Integer(txt));
MessageBox(0,PChar(txt),"Edit",mb_OK);
End;


---

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

Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c