简单的问题(100分送)

Question

我点BUTTON1 启动IE  并且 让IE启动后 显示在屏幕中间大小为1024 x 700 
然后FROM1的top和IE的top一样 form1的left在 IE的窗口右边(也就是贴在IE右边的意思)

Answer 1

uses shellapi；
h:HWND;
rect:TRect;
begin
  ShellExecute(Handle,'open','about:blank',nil,nil,SW_SHOWNORMAL);
//  Sleep(2000);
  h:=FindWindow('IEFrame',nil);
  if h<>Null then begin
    GetWindowRect(h,rect);
    MoveWindow(Self.Handle,rect.Right,rect.Top,Self.Width,Self.Height,True);
    ShowMessage(IntToStr(rect.Top));
  end;
end;
xp上自己测试成功，楼主试试

Answer 2

FindWindow可以获得IE窗口 handle
参考
http://blog.csdn.net/laiyiling/archive/2004/11/21/189305.aspx

Answer 3

keeley20
的代码没改将IE的窗口大小改成1024X700

Answer 4

引用 kriscn01 的代码,试试:MoveWindow(TheIEHandle,0,0,1024,700,true);

Answer 5

可以了 但我想问下 我打开后 如果IE里面现在打开了BAIDU网 我如何知道IE现在的网址是什么？

Answer 6

屏幕分辨率多大，1024 x 700后窗体在IE右边还可以看见吗

Answer 7

第二个问题，在网上找了找代码procedure TForm1.Button1Click(Sender: TObject);
var
dde : TDdeClientConv;
bRet: Boolean;
begin
  dde := TDdeClientConv.Create(self);
  bRet:= dde.SetLink('Iexplore','WWW_GetWindowInfo');  if bRet then
  Edit1.Text := dde.RequestData('0xFFFFFFFF, sURL, sTitle')
  else
  ShowMessage('没有打开IE');
  dde.free;
end;

Answer 8

谢谢 最后在多问1个问题
就是我用的是IE7支持多页面 每次点 他都会弹出个新的IE窗口 有办法让他都在1个IE里显示吗

Answer 9

OK 上面的问题解决了  有没有可以点IE上的刷新按钮的代码？

Answer 10

h:HWND;
rect:TRect;
begin
  ShellExecute(Handle,'open','about:blank',nil,nil,SW_SHOWNORMAL);
//  Sleep(2000);
  h:=FindWindow('IEFrame',nil);
  if h<>Null then begin
    GetWindowRect(h,rect);
    MoveWindow(TheIEHandle,0,0,1024,700,true);
    ShowMessage(IntToStr(rect.Top));
  end;
end;

Answer 11

uses ComObj; Var 
ie: Variant;
begin 
ie := CreateOleObject('InternetExplorer.Application'); 
//显示IE ie.visible := True; //显示163首页 
ie.Navigate('http://www.163.com/'); 
//刷新页面 Sleep(1000*10); 
ie.Refresh; 
Sleep(20*1000); 
//退出 
ie.Quit; 
ie := Unassigned;
end; 

Answer 12

在自己的程序里嵌入ie吧
Twebbrowser