Функция PrintWindow

[Electrod]

Здравствуйте.
Нужно реализовать скриншот чужого окна.Окно может быть перекрыто.
После многих экспериментов, выяснилось- что если скриншотить через Api функцию PrintWindow - получается то что надо.
Отсюда вопрос:

Не подскажите синтаксис функции PrintWindow, как ее подключить в Delphi. Хоть какой-нить пример .

[rpy3uH]

здесь написано -
http://msdn2.microsoft.com/en-us/lib...95(VS.85).aspx

BOOL PrintWindow(
HWND hwnd, // хендл копируемого окна
HDC hdcBlt, // хендл DC для копирования
UINT nFlags // флаги
);

заголовок для Delphi

function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll';

[Electrod]

2 rpy3uH
Спасибо, функцию включил.

Но вот работать что-то не хочет. Белый квадрат вместо скрина. может у меня ошибка в коде,тока найти я ее не могу.
Гляньте код, сработает ли он у вас, или может ошибку укажите.

....
function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll';
...........
var 
hg:HWND:
DC:HDC;
BMP:TBITMAP;
R: TRect;
begin
 hg := WindowFromPoint(Mouse.CursorPos);
 bmp:=TBitmap.Create;
 GetWindowRect(hg, R);
 Bmp.Width:= R.Right - R.Left;
 Bmp.Height:= R.Bottom - R.Top;
 dc:=GetDc(Integer(Bmp.Canvas.Handle));
 PrintWindow(hg,Integer(Bmp.Canvas.Handle), PRF_NONCLIENT or PRF_CHECKVISIBLE or PRF_CLIENT or PRF_ERASEBKGND or PRF_CHILDREN);
 bmp.SaveToFile('c:\1\2.bmp');
 Bmp.Free;
 ReleaseDc(0, dc)
end;

[B_N]

Сообщение от Electrod

Но вот работать что-то не хочет. Белый квадрат вместо скрина. может у меня ошибка в коде,тока найти я ее не могу.

Подозреваю, что это связано с путаницей с контекстами. Из-за отсутствия Delphi не могу проверить "живьём" данный код, но вот такой код на C прекрасно копирует "чужое" окно, даже если оно за границами экрана:

		RECT rcSrc;
		HWND hSrcWnd;
		HDC hDC, hSrcDC;
		HBITMAP hBmp;

		hSrcWnd = FindWindow(NULL, "*********"); // "*********" - имя нужного окна
		GetWindowRect(hSrcWnd, &rcSrc);

		hDC = GetDC(hWnd);
		hSrcDC = CreateCompatibleDC(NULL);
		hBmp = CreateCompatibleBitmap(hDC, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top);
			
		SelectObject(hSrcDC, hBmp);
		PrintWindow(hSrcWnd, hSrcDC, 0);

		BitBlt(
			hDC, 
			0,
			0,
			rcSrc.right - rcSrc.left, 
			rcSrc.bottom - rcSrc.top,
			hSrcDC, 
			0,
			0,
			SRCCOPY);
	
		DeleteObject(hBmp);
		DeleteDC(hSrcDC);
		ReleaseDC(hWnd, hDC);

[Electrod]

2 B_N
Мега респект тебе! Спасибо!
И всем кто помогал!
Видать действительно была проблема с контекстами.
Подправил пример из С ,чтобы на делфи работал. И Ура, все получилось.

Вот,выкладываю, может кому пригодится.

...............
function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll';
.................
var
rcSrc:Trect;
hSrcWnd:HWND;
hDC1:HDC;
hSrcDC:HDC;
hBmp:HBITMAP ;
tBmp:TBitmap;
begin
  tbmp:=TBitmap.Create;

 hSrcWnd := FindWindow(nil, PChAR('Test')); // "*********" - имя нужного окна
GetWindowRect(hSrcWnd, rcSrc);

hDC1:= GetDC(hSrcWnd);
hSrcDC:=CreateCompatibleDC(hDC1);  
hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top);

SelectObject(hSrcDC, hBmp);
PrintWindow(hSrcWnd, hSrcDC, 0);   
BitBlt(   
    hDC1,
    0,   
    0,
    rcSrc.right - rcSrc.left,
    rcSrc.bottom - rcSrc.top,   
    hSrcDC,    
    0,   
    0,   
    SRCCOPY);
   
 tbmp.Handle:=hbmp;
tbmp.SaveToFile('c:\1.bmp');

 DeleteObject(hBmp);
DeleteDC(hSrcDC);
ReleaseDC(hSrcWnd, hDC1);
tbmp.Free;
end;

[Sanya111]

Подскажите пожалуйста, как можно загрузить полученный скрин сразу в TImage не сохраняя на винт?

[raxp]

...например, через .assign(tbmp)

[Sanya111]

Сообщение от raxp

...например, через .assign(tbmp)

Пожалуйста, подскажите как правильно записать эту строку, чтобы скрин сразу отобразился в TImage

[liljon]

Сообщение от B_N

Подозреваю, что это связано с путаницей с контекстами. Из-за отсутствия Delphi не могу проверить "живьём" данный код, но вот такой код на C прекрасно копирует "чужое" окно, даже если оно за границами экрана:

А если данное окно находиться под другим окном?

[raxp]

image1.Picture.Bitmap.Assign(tbmp);
tbmp.Free;