+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف معرفة هندل انترنت اكسبلورار ليس متصفح الكروم (/showthread.php?tid=5096)
كيف معرفة هندل انترنت اكسبلورار ليس متصفح الكروم - DJAMELCOLLO - 01-04-2013
كيف معرفة هندل انترنت اكسبلورار ليس متصفح الكروم
الهدف ارسال قيم الى iexplore.exe دون اتباع حركة الفارة
جربت هذالكود ولم ينجح
كود :
var
;i:integer
;tex:string
;h,r:thandle
begin
; ( h:= FindWindow('ieframe',nil
;(r:=findwindowex(h,0,'macromediaflashactivex',nill
;tex:=Edit3.Text
for i:= 1 to Length(Text) do
begin
;(SendMessage(r, WM_CHAR,ord(text[i]), 0
end;كيف معرفة هندل انترنت اكسبلورار ليس متصفح الكروم - SMP3 - 01-04-2013
و عليكم السلام
سبب الخلل في الكود عندك هو أن MacromediaFlashPlayerActiveX ليس ب child ابن مباشر للكلاس ieframe
يمكن الوصول لمقبض MacromediaFlashPlayerActiveX عن طريق المرور على جميع Parent الخاصة ب MacromediaFlashPlayerActiveX
PHP كود :
var
IEWnd,ChildIEWnd,MFPActiveXWnd:THandle ;
begin
IEWnd := FindWindow('IEFrame', nil);
ChildIEWnd:= FindWindowEX(IEWnd , 0, 'Frame Tab', nil);
ChildIEWnd:= FindWindowEX(ChildIEWnd , 0, 'TabWindowClass', nil);
ChildIEWnd:= FindWindowEX(ChildIEWnd , 0, 'Shell DocObject View', nil);
ChildIEWnd:= FindWindowEX(ChildIEWnd , 0, 'Internet Explorer_Server', nil);
MFPActiveXWnd:= FindWindowEX(ChildIEWnd , 0, 'MacromediaFlashPlayerActiveX', nil);
//MFPActiveXWnd = MacromediaFlashPlayerActiveX handle !!
Caption:=IntToHex(MFPActiveXWnd,8);
end;