| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вставить текст в чужое окно, только что обсуждалось, но не совсем [D6]

QUE ©   (2003-03-19 16:14:00) 

Хочеться взять из чужой программы данные обработать их и вставить !!! Забрать получается простой отсылкой через _KeyDown и _KeyUp
Комбинаций SHIFT+INSERT и потом CTRL+C, а вот вставить обратно ??? Очевидно реализация копирования, тоже кривая .... Помогите плз.

procedure _KeyDown(Key : byte);
begin
keybd_event(Key, 0, 0, 0);
end;

procedure _KeyUp(Key : byte);
begin
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;


var
HK,Up,Down,Value : string;
iPos : Integer;
// Wnd : Integer;
begin
// Wnd := GetForegroundWindow;
// Делал и так
// PostMessage(Wnd,WM_KEYDOWN,VK_CONTROL,0);
// PostMessage(Wnd,WM_KEYDOWN,VK_INSERT,0);
// PostMessage(Wnd,WM_KEYUP,VK_INSERT,0);
// PostMessage(Wnd,WM_KEYUP,VK_CONTROL,0);
_KeyDown(VK_CONTROL);
_KeyDown(VK_INSERT);
_KeyUp(VK_INSERT);
_KeyUp(VK_CONTROL);
Delay(500);
HK := ShortCutToText(HotKey);
Value := AHotKey.Values[HK];
iPos := Pos("^!",Value);
if Clipboard.HasFormat(CF_TEXT) then
begin
Text := Clipboard.AsText;
//===========
//Мой код отрабатывает нормально
//===========
Clipboard.AsText := Text;
Delay(100);
_KeyDown(VK_SHIFT);
_KeyDown(VK_INSERT);
_KeyUp(VK_INSERT);
_KeyUp(VK_SHIFT);
// Делал и так
// PostMessage(Wnd,WM_KEYDOWN,VK_SHIFT,0);
// PostMessage(Wnd,WM_KEYDOWN,VK_INSERT,0);
// PostMessage(Wnd,WM_KEYUP,VK_INSERT,0);
// PostMessage(Wnd,WM_KEYUP,VK_SHIFT,0);
ToLog(Up+Text+Down);
Clipboard.Clear;
end;
end;


---

QUE   (2003-03-19 18:50:00) [1]

Wnd := GetFocusВот что написано в MAN"e:
Считывает окно, котоpое в данный момент имеет фокус ввода.
Блин у блокнота не может считать !!???
Почему ?

---

QUE   (2003-03-19 17:30:00) [2]

Угу, спасибо большое завтра уже проделывать все это буду ...
Сейчас убегать нужно .... ОГРОМНОЕ СПАСИБО.....

---

Aleksey_sv   (2003-03-19 17:04:00) [3]

Блин помарочка

> Найти хендл елемента-- Findwindow(WND родителя,0,"Класс
> окна (например"edit")",Заголовок)

правильно FindwindowEX

---

Aleksey_sv   (2003-03-19 17:01:00) [4]

небольшое исправление
sendmessage(hw,WM_GETTEXT,Длина строчки,integer(@Wtext));
Найти хендл елемента-- Findwindow(WND родителя,0,"Класс окна (например"edit")",Заголовок)

---

QUE   (2003-03-19 16:42:00) [5]

Сейчас попробую ....

---

QUE   (2003-03-19 16:41:00) [6]

Да до этого я тоже дошел, но незнаю как достать этот хендл ...

А за sendmessage(WND,Wm_gettext,text,0);Большое спасибо !!!

---

Aleksey_sv   (2003-03-19 16:36:00) [7]

А вытягивать
sendmessage(WND,Wm_gettext,text,0);
помоему так.
Этот вариант катит с заголовком, а для всего остального надо знать хендл компонента из которого и в который ты текст отправляеш

---

Aleksey_sv   (2003-03-19 16:33:00) [8]

Используй лучше Sendmessage(WND,Wm_settext,0,text);
меньше секса :))

---

Наверх