能否SetWindowPos一个窗口的大小超出屏幕的分辨率？

[makefool]

试了一下，好像不行（用PASCAL写的，因为属于api问题，最好在vc区问）

  hw:=FindWindow(nil,PChar('Google Earth'));
  if hw <> 0 then
    SetWindowPos (hw, HWND_TOP, 0, 0, 200000, 20000, SWP_SHOWWINDOW);

如果可以的话，不就可以抓一个超大清晰的Google Map了！

还有其他什么办法吗？

[marrco2005]

SetWindowPos可以设置超大窗体的。
但对于google earth 可能不行，也许 google earth 对自身的窗体大小做了限制

[makefool]

研究了很长时间，
我自己来回答吧。

google earth使用了dx 3D，可以设置超大窗体，但是它的DX3D不兼容这样的超大窗体，抓不了图。
对付google earth只有一个办法，设置虚拟的显示器分辨率，把显示属性->高级->监视器->隐藏该显示器无法显示的模式（关掉），然后可以设置出2048x1536的虚拟分辨率。试过了多个型号显卡，N卡，A卡，还有intel的板载芯片，只能搞得这么大，然后最大化google earth窗口，可以抓大图。

第二种更实用的抓地图办法，不用google earth也能抓到更大的地图。
就是用ditu.google.com网站，自己做了个含IE控件的程序，把IE控件的大小设置到超大：比如7000x7000,
访问google的地图网站，然后使用ViewObject.Draw方法可以吧网页转成图片方式存出来，这里就只贴核心代码，完整的自己随便RAD一下就可以了。

但是由于IE控件本身的限制，存出图片的大小好像只能达到6400x6400(或者稍大一点)，否则就报内存不足错误。也许到Win64中的64bit IE会好一些，但没条件试。这个也够了，抓张分辨率为1公里的大城市地图已经很实用了。

var
  ViewObject: IViewObject;
  sourceDrawRect: TRect;
  tmpImage : TImage;
  jp: TJPEGImage;
  nowtime: TDateTime;
  t_hour,t_minute: integer;
  s_nowday, s_hour,s_minute: string;
begin
  if Msg.Iditem = 100 then
  begin
    WebB.Document.QueryInterface(IViewObject, ViewObject);
    if ViewObject <> nil then
      try
        jp := TJPEGImage.Create;
        tmpImage := TImage.Create(Self);
        tmpImage.Width := Web_W;
        tmpImage.Height := Web_H;
        sourceDrawRect := Rect(0,0,tmpImage.Width,tmpImage.Height);
        ViewObject.Draw(DVASPECT_CONTENT,1,nil,nil,Self.Handle,
          tmpImage.Canvas.Handle,@sourceDrawRect,nil,nil,0);
        tmpImage.Repaint;
        jp.Assign(tmpImage.Picture.Bitmap);
        jp.CompressionQuality := 100;
        nowtime := Now;
        t_minute := Round(Frac(nowtime)*1440.0);
        s_nowday := DateToStr(Date);
        t_hour := t_minute div 60;
        t_minute := t_minute - t_hour*60;
        if t_hour < 10 then
          s_hour := '0'+intToStr(t_hour)
        else
          s_hour := intToStr(t_hour);
        if t_minute < 10 then
          s_minute := '0'+intToStr(t_minute)
        else
          s_minute := intToStr(t_minute);
        jp.SaveToFile (GetCurrentDir+'\gmap'+s_nowday+'_'+s_hour+'-'+s_minute+'.jpg');
        jp.Free;
        tmpImage.Free;
      finally
        ViewObject._Release;
      end;
 end