Текущий архив: 2003.10.06;
Скачать: CL | DM;

Вниз

GetParent, a kak poluchit GetChild   Найти похожие ветки 

← →
Delphi5.01 ©   (2003-08-01 20:26) [0]

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.

---

← →
ZrenBy ©   (2003-08-01 20:31) [1]

EnumChildWindows

---

← →
Delphi5.01 ©   (2003-08-01 20:35) [2]

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:43) [3]

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


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 21:00) [4]

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

---

← →
Delphi5.01 ©   (2003-08-01 23:40) [5]

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 23:51) [6]

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

---

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

Текущий архив: 2003.10.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c