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

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

Помогите получить список елементов на форме чужого приложения. [D6, Win2k]

Gas ©   (2004-03-05 17:07:00) 

Spy++ не работает :(
W2000 sp4
Заранее спасибо.

---

Gas   (2004-03-07 10:26:00) [1]

Спасибо ребята, все в моде, все работает :)))

function EnumProc (WD: HWnd; Param: LongInt): Boolean; stdcall;
Var Nm:Array[0..255] of Char;
Cs: Array[0..255] of Char;
Begin
GetWindowText(Wd,Nm,255);
GetClassName(Wd,Cs,255);
if pos('0000:1008',StrPas(Cs))>0 then HandleSap:=Wd;
Form1.Memo1.Lines.Add(String(Nm)+'/'+String(Cs));
EnumProc:=True;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
H,h2: HWND;
msg:Cardinal;
s:string;
buff: ARRAY [0..127] OF Char;
begin
s:=ComboBox1.Text;
HandleSap:=0;
H := FindWindow (nil, PcHar(ComboBox1.Text));
HandleZccn:=h;

EnumChildWindows (H,@EnumProc, 0);

....................
....................

---

Gero   (2004-03-06 19:43:00) [2]

> А FindWindow(Ex) + EnumChildWindows уже не в моде ?

Не. Это уже вчерашний день :)

---

Игорь Шевченко   (2004-03-06 19:24:00) [3]

А FindWindow(Ex) + EnumChildWindows уже не в моде ?

---

Gas   (2004-03-05 19:27:00) [4]

Спасибо, разбираюсь...

---

MBo   (2004-03-05 17:24:00) [5]

Ему нужно только spyhk(55).dll

попробуй winsight из Delphi/bin (ws32.exe)

---

Gas   (2004-03-05 17:21:00) [6]

Spy++ вообще не работает, т.е. не запускается и вываливается с ошибкой "не является приложением вин32". MFC-файлы скачал и поместил в System...

---

YuRock   (2004-03-05 17:15:00) [7]

> Spy++ не работает :(

Что-то у меня по этому поводу сомнения. Просто он показывает только окна. Скорее всего на той "форме" лежат компоненты типа TLabel, TSpeedButton... Рисованные, короче

---

Наверх