procedure TForm1.Button1Click(Sender: TObject); var IE_URL: Array[0..1000] Of char; //得到的字符串 IE_Hwnd:thandle; i:integer; Const CtlNames:array[0..3] of string=( 'WorkerW', //获得IE窗口的工作区的句柄 'ReBarWindow32', //获得IE窗口的菜单栏的句柄 'Address Band Root', //获得IE窗口的下拉菜单的句柄 'Edit' //获得编辑框句柄 www. ); begin try IE_Hwnd:=findwindow(pwidechar('IEFrame'),nil); if IE_Hwnd<=0 then exit; for i:=0 to length(ctlnames)-1 do begin IE_Hwnd:=FindWindowEx(IE_Hwnd,0,PChar(CtlNames[i]),nil); //showmessage(CtlNames[i]); end; except end; if IE_Hwnd<=0 then exit; SendMessage(IE_Hwnd, WM_GetTEXT, 256,integer(@IE_URL[0])); //取值 Memo1.Lines.Add(IE_URL); end;
|