delphi4arab منتديات دلفي للعرب

كيف معرفة هندل انترنت اكسبلورار ليس متصفح الكروم
الهدف ارسال قيم الى 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;

و عليكم السلام
سبب الخلل في الكود عندك هو أن 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; 

DJAMELCOLLO

SMP3