如何用程序打开IE,并缩小到屏幕左下角如题,用代码打开IE,已实现,
现在要需要打开IE的同时,把IE浏览器缩小到屏幕右下角,
造成没有刷新的假象。各位兄弟帮帮忙吧。
最好能给出小段代码
不胜感激

解决方案 »

  1.   

     WinExec('"C:\Program Files\Internet Explorer\IEXPLORE.EXE"',SW_MINIMIZE);
    或者
     shellexecute
      

  2.   

    ShellExecute(Handle,nil,PChar('iexplore.exe'),PChar('www.csdn.net'),nil,SW_HIDE);开一个隐藏的IE窗口至于缩到托盘里
    你可以加一个Trayicon,自己去实现
      

  3.   

    感谢兄弟们的热心,
    是这样的,我是要在一个激活的IE里面,实现打开新的页面,并把这个IE缩小下来
    运用ShellExecute或者WinExec都只会不断的打开新的IE,希望大家再帮帮忙
      

  4.   

    这个用DDE很方便
    在你的uses 增加 DDEman;
    var
       DDE:TDdeClientConv;
    begin
      if DDE.SetLink('IExplore', 'WWW_OpenURL') then//IE必须已经运行
      begin
      DDE.OpenLink;
      DDE.RequestData('www.csdn.net');//链接到指定网页
      DDE.CloseLink;
      end;
    end;要想缩小IE,先用FindWindow获得IE句柄
    然后用ShowWindow
      

  5.   

    什么意思?是打开IE后自动最小化吗?还是把IE窗口变小?你所说的:
    如何用程序打开IE,并缩小到屏幕左下角 如题,用代码打开IE,已实现, 
    现在要需要打开IE的同时,把IE浏览器缩小到屏幕右下角, 
    你自己说话都有矛盾,不明白你的意思!
      

  6.   

    感谢朋友们回答
    其实,打开IE等功能我都已经用DDE来实现了,
    我的问题是,当我在激活的IE上面新打开一个IE界面的时候,把IE给缩小了,其实就是模拟IE界面右上角的[- 口 X]缩小,放大,关闭中的缩小按钮
      

  7.   

    最小化IE
    Hd:= FindWindow('IEFrame',nil);
    if Hd<>0 then
       ShowWindow(Hd,SW_MINIMIZE);
      

  8.   

    新建一个按扭,事件如下:procedure TForm1.Button1Click(Sender: TObject);
    var h:HWND;
    begin
    ShellExecute(0,0,'http://www.baidu.com',0,0,SW_MINIMIZE);
    Sleep(500);
    h:=FindWindow('IEFrame',0);
    if h=0 then
     showmessage('没有打开系统自带的IE浏览器。')
    else
     CloseWindow(h);
    end;使用前必须在Uses里面包含ShellAPi
      

  9.   

    感谢stherix最近老是遇到一些很热心的高手,谢谢!问题解决方案:1.先var一个句柄变量K
    2.接着用FindWindow函数找到这个IE句柄,然后赋值给K
    3.判断k是否为空,如果不为空就showWindow,然后在showWindow的第二个参数里面设置为缩小(SW_MINIMIZE)再次谢谢stherix