Проблема с GetDC

[rekrow]

делаю:

bmp:=TBitmap.Create;
bmp.Height:=500;
bmp.Width:=500;
DC:=GetDC(findwindow('Notepad','fai l.info - Блокнот'));
bitblt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height,DC, 0, 0, SRCCOPY);

если окно развернуто,то захват изображения делает корректно,а если нет,то просто белое изображение.Как сделать чтобы изображение захватывалось по указанному хэндлу,даже если окно свернуто?
Thanx.

захват изображения активного окна прекрасно работает если GetDC(0),но мне нужно чтобы захват изображения происходил для другого окна(неактивного,а указанного хэндла) GetDC(findwindow('Notepad','1.txt - Блокнот')).вот.

[raxp]

но мне нужно чтобы захват изображения происходил для другого окна(неактивного,а указанного хэндла)

изучайте... работает хорошо если окно перекрыто другими или неактивно, если свернуто... увы... как вариант разворачивать на момент фотографирования

var fl: boolean;

//1 - способ
procedure CaptureClientImage(h: hwnd; b: tbitmap);
var DC,hSrcDC: hDC;
    Rect : TRect;
    wX,wY: integer;
begin
 GetWindowRect(h,Rect);
 wX:= Rect.Right - Rect.Left;
 wY:= Rect.Bottom - Rect.Top;
 DC:= GetWindowDC(h);
 //
 b.Handle:= CreateCompatibleBitmap(dc,wX,wY);
 //
 hSrcDC:= CreateCompatibleDC(0);
 SelectObject(hSrcDC, b.Handle);
 PrintWindow(h, hSrcDC, 0);
 //
 BitBlt(b.Handle,0,0,wX,wY,dc,0,0,SRCCOPY);
 //b.Palette:= GetSystemPalette;

 ReleaseDC(h,DC);
 DeleteDC(hSrcDC);
end;


//2 - способ
function WindowSnap(windowHandle: HWND; bmp: TBitmap): boolean;
var
  r: TRect;
  user32DLLHandle: THandle;
  printWindowAPI: function(sourceHandle: HWND; destinationHandle: HDC; nFlags: UINT): BOOL; stdcall;
begin
  result := False;
  user32DLLHandle := GetModuleHandle(user32) ;
  if user32DLLHandle <> 0 then
  begin
    @printWindowAPI := GetProcAddress(user32DLLHandle, 'PrintWindow') ;
    if @printWindowAPI <> nil then
    begin
      GetWindowRect(windowHandle, r) ;
      bmp.Width := r.Right - r.Left;
      bmp.Height := r.Bottom - r.Top;
      bmp.Canvas.Lock;
      try
        result := printWindowAPI(windowHandle, bmp.Canvas.Handle, 0) ;
      finally
        bmp.Canvas.Unlock;
      end;
    end;
  end;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
var b: tbitmap;
    h: hwnd;
begin
  b:= tbitmap.Create;
  h:= findwindow('Notepad',nil);
  {if IsWindowVisible(h) then begin
   fl:= true;
   showwindow(h,sw_restore)
  end;
  }//
  WindowSnap(h, b);
  CaptureClientImage(h, b);
  //if fl then begin fl:= false; showwindow(h,SW_MINIMIZE) end;
  b.SaveToFile('1.bmp');
  b.Free
end;

зы: кстати обсуждалось 1 2

[rekrow]

Всем спасибо,вся инфа очень полезна

У меня остался один вопрос:

Как сделать частичное копирование чужого окна?
Если для активного окна работает такой код:

bmp:=TBitmap.Create;
bmp.Height:=500;
bmp.Width:=500;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height,DC, 350, 120, SRCCOPY);

т.е. 350,120 дает мне смещение отсчета координат,то при копировании чужого окна такого не получается,уже все значения поменял,ну никак не смещается точка-начала копирования....

Вот код,который прекрасно работает с копированием чужого окна:

var DC,hSrcDC: hDC;
Rect : TRect;
wX,wY: integer;
b: tbitmap;
h: hwnd;
begin
b:= tbitmap.Create;
h:= findwindow(nil,'Сube Info');
GetWindowRect(h,Rect);
wX:= Rect.Right - Rect.Left;
wY:= Rect.Bottom - Rect.Top;
DC:= GetWindowDC(h);
b.Handle:= CreateCompatibleBitmap(dc,wX,wY);
hSrcDC:= CreateCompatibleDC(0);
SelectObject(hSrcDC, b.Handle);
PrintWindow(h, hSrcDC, 0);
BitBlt(b.Handle,0,0,wX,wY,DC,0,0,SR CCOPY);
b.SaveToFile('C:\1.bmp');
ReleaseDC(h,DC); DeleteDC(hSrcDC);
b.Free

Как его модифицировать,чтобы копировалась часть чужого экрана?

[raxp]

есть help, очень полезная вещь... а если еще потратить время, то можно найти - copyrect:

procedure CaptureScreen(ABitmap: TBitmap);
const CAPTUREBLT = $40000000;
var
  hdcScreen: HDC;
  hdcCompatible: HDC;
  hbmScreen: HBITMAP;
begin
  hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
  hdcCompatible := CreateCompatibleDC(hdcScreen);

  hbmScreen := CreateCompatibleBitmap(hdcScreen,
    GetDeviceCaps(hdcScreen, HORZRES),
    GetDeviceCaps(hdcScreen, VERTRES));

  SelectObject(hdcCompatible, hbmScreen);
  ABitmap.Handle := hbmScreen;
  BitBlt(hdcCompatible,
    0, 0,
    ABitmap.Width, ABitmap.Height,
    hdcScreen,
    0, 0,
    SRCCOPY or CAPTUREBLT);

  DeleteDC(hdcScreen);
  DeleteDC(hdcCompatible)
end;

procedure getobl(filename: STRING; l,r,w,h: integer);
var b,b2: tbitmap;
begin
 b := tbitmap.Create;
 b2:= tbitmap.Create;

 b2.Width := w;
 b2.Height:= h;

 CaptureScreen(b);
 b2.Canvas.CopyRect(Rect(0,0,w,h),
                    b.canvas,
                    Rect(l,r,l+w,r+h));

 b2.SaveToFile(filename);
 b.Free; b2.Free
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 getobl('1.bmp', 874,618, 150,150)
end;

смысл ясен?

[rekrow]

Да,смысл мне понятен!Дело в том,что я уже пробовал через CopyRect,но он не вырезает ничего,просто создает пустой bmp.Вот код,который я пользовал:
var DC,hSrcDC: hDC;
RRect : TRect;
wX,wY: integer;
b,b2: tbitmap;
h: hwnd;
begin
b:= tbitmap.Create;
b2:= tbitmap.Create;
h:= findwindow(nil,'Сube Info');
GetWindowRect(h,RRect);
wX:= RRect.Right - RRect.Left;
wY:= RRect.Bottom - RRect.Top;
DC:= GetWindowDC(h);
b.Handle:= CreateCompatibleBitmap(dc,wX,wY);
hSrcDC:= CreateCompatibleDC(0);
SelectObject(hSrcDC, b.Handle);
PrintWindow(h, hSrcDC, 0);
BitBlt(b.Handle,0,0,wX,wY,DC,0,0,SR CCOPY);
b.SaveToFile('C:\1.bmp');
b2.Canvas.CopyRect(Rect(0,0,860,635 ),b.canvas,Rect(10,10,10,10));
b2.SaveToFile('C:\2.bmp');
ReleaseDC(h,DC); DeleteDC(hSrcDC);
b.Free;
b2.Free;

Bmp1 хранит нормально,чужое окошко прекрасно копируется,а вот из него уже ничего не вырезается,просто создается файл с невозможностью прочитать его.Может я НУБлю жестко?!

[raxp]

ваш (этот) код мне знаком... у него есть еще недостаток, он не копирует полупрозрачные окна... используйте тот что дал и все будет ок.

...кроме того, при такой записи у вас

Rect(0,0,860,635 ),b.canvas,Rect(10,10,10,10)

размер выходной области будет 860x635, а копируете вы туда лишь 10х10px, да и размеры b2 вы не определили, тем паче 0 будет.

[BOBAH13]

Ну либо через DISPLAY + CreateDC как было выше указано либо через BitBlt но SRC_COPY +

#define CAPTUREBLT          (DWORD)0x40000000 /* Include layered windows */

[rekrow]

Всем огромное спасибо.Маленько пришлось по-другому обмозговать код,но в целом работает как мне надо

P.S.:отдельное спасибо raxp,сопровождал все мои топики ценными советами!!!