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

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

Как в окне чужого приложения создать поле ввода??? [D6, WinXP]

Shira333 ©   (2004-09-28 17:48:00) 

h2:=CreateWindow('EDIT', '123', WS_BORDER or WS_CHILD, 20, 20, 120, 15, h1, 0, GetWindowLong(h1, GWL_HINSTANCE), nil);
       ShowWindow(h2, SW_SHOW);

Делаю это, а поле не создается. В чем проблема???

---

Shira333   (2004-09-28 23:12:00) [1]

Так что, Мастера? Поможете???

---

Shira333   (2004-09-28 18:37:00) [2]

Вот код, что куда вписать???

program WMFucker;

{$APPTYPE CONSOLE}

uses
 My, Windows, Messages;

var
 h1, h2: HWND;

begin
       h1:=FindWindow(nil, '???????????');
       h2:=CreateWindow('EDIT', '123', WS_BORDER or WS_CHILD, 20, 20, 120, 15, h1, 0, 0, nil);
       ShowWindow(h2, SW_SHOW);
       ReadLn;
       {CreateWindow('edit', '', WS_CHILD or WS_VISIBLE, 10, 10, 230, 21, ...}
end.


---

easy   (2004-09-28 18:35:00) [3]

windows.SetParent(h2,CalcWindowHandle);

---

easy   (2004-09-28 18:30:00) [4]

только что создал едит прямо в этом окне по вышеприведённой схэме..
никаких проблем

---

Shira333   (2004-09-28 18:30:00) [5]

Не помогло :(((Кстати, после этого у калькулятора, пробую откурыт менюшку(любую), а он зависает и пока прогу не выключить, не работает. Тестирую прогу на калькуляторе...

---

Shira333   (2004-09-28 18:27:00) [6]

Пасиба, ща попробую!!!

---

Игорь Шевченко   (2004-09-28 18:25:00) [7]

Shira333 ©   (28.09.04 18:21) [2]


> Не понял??? Что там надо вписывать???


0 ?

---

Shira333   (2004-09-28 18:21:00) [8]

Не понял??? Что там надо вписывать???

---

Игорь Шевченко   (2004-09-28 18:20:00) [9]

> В чем проблема???


В этом ?


> GetWindowLong(h1, GWL_HINSTANCE)

---

Наверх