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

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

GetParent, a kak poluchit GetChild

Delphi5.01 ©   (2003-08-01 20:26:00) 

Dobroe vrema sutok!
kak mojno poluchit Hanlde lubogo dochernogo okna znaia ego parent!
poluchit parent mojno s pomoshu funqcii
HWND GetParent(
HWND hWnd // handle of child window
);

Spasibo.

---

Delphi5.01   (2003-08-01 23:51:00) [1]

Prinoshu svoi izvenenia, eto u mena oshibka v proge bila!
Sorry

---

Delphi5.01   (2003-08-01 23:40:00) [2]

Vso ok no pochemuto windi ne pravilno daiut sodirjimi tekst, oni na odno okoshko vpered daut tekst, znachit xendl dannogo okna vozrashaet tekst sleduiushego okna! a pochemu?
Spasibo.

---

Delphi5.01   (2003-08-01 21:00:00) [3]

Spasibo bolshoe, lublu primerchiki :-)))))!

---

ZrenBy   (2003-08-01 20:43:00) [4]

Что-то типа этого


function U_ECWProc(hW:HWND;lP:LPARAM):Boolean;stdcall;

procedure TfMain.FormShow(Sender: TObject);
begin
StringList.Clear;
WinExec("calc.exe",SW_SHOWNORMAL);
Sleep(100);
hCalc := FindWindow(nil,LPSTR("Калькулятор"));
if(hCalc=0)then raise Exception.Create("...");
EnumChildWindows(hCalc,@U_ECWProc,LPARAM(StringList));
end;

function U_ECWProc(hW:HWND;lP:LPARAM):Boolean;stdcall;
var S:String;
begin
SetLength(S,SendMessage(hW,WM_GETTEXTLENGTH,0,0)+1);
SetLength(S,SendMessage(hW,WM_GETTEXT,Length(S),LPARAM(S)));
TStringList(lP).Add("Child = "+S+" HWND = "+IntToStr(hW));
Result := True;
end;


---

Delphi5.01   (2003-08-01 20:35:00) [5]

da no mne nujen HWND a ne ukazatel, ili v dannom sluchae eto odno i toje? izvenite za lamerski vopros.
P.S. esli mojno primerchik. Pleaseeeeeeeee.
Spasibo.

---

ZrenBy   (2003-08-01 20:31:00) [6]

EnumChildWindows

---

Наверх