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

SendMessage в "чужую" программу   Найти похожие ветки 

← →
AlTsy   (2005-02-04 22:59) [0]

Есть некоторая проблема: текст уходит в Блокнот, но в другие программы (Excel, Word) нет. Где ошибка?

Wnd:= GetForegroundWindow();
if AttachThreadInput(GetWindowThreadProcessID(Wnd),GetCurrentThreadID,True)
 then begin
      t:= self.Data;
      wnd:= Windows.GetFocus;
       for i:= 1 to Length(t) do
        begin
        key:= ord(t[i]);
        SendMessage(Wnd, WM_CHAR,key, 25);
       end;{for i}
      end;

---

← →
Piter ©   (2005-02-04 23:46) [1]

Что показывают результаты отладки?

---

← →
Сергей К. ©   (2005-02-06 18:24) [2]

В word и excel с помощью sendmessage не вставиш, предлагаю работать через буфер обмена - записать в него текст а потом импулировать нажатие комбинации shift+ins в word,excel с помощью kb_event. Проверено - работает.

---

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

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



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