Советы по Delphi

         

Как получить снимок экрана (типа screen-capture программ)?


Решение 1

Используйте стандартный Windows API:

используйте hWnd := GetDesktopWindow для получения дескриптора 'рабочего стола';
используйте hDC := GetDC (hWnd) для получения HDC (дескриптора контекста экрана) ;
и не забывайте освобождать (уничтожать дескриптор) hDC после выполнения задачи.

Используя TCanvas.Handle в качестве HDC, можно при помощи WinAPI реализовать функции рисования, или, если это возможно, можно присвоить HDC свойству Handle непосредственно при создании TCanvas.

Решение 2

В D1 (по идее должно работать и в D2) попробуйте это:

Разместите на форме TPaintBox и TButton.

    procedure TForm1.Button1Click(Sender: TObject);



var
DeskTop : TCanvas ;
begin
DeskTop := TCanvas.Create ; try with DeskTop do Handle := GetWindowDC (GetDesktopWindow) ;
with PaintBox1.Canvas do CopyRect (Rect (0, 0, 200, 200), DeskTop, Rect (0, 0, 200, 200))
finally DeskTop.Free
end end;

Это скопирует верхнюю левую область рабочего стола в верхнюю левую область вашего TPaintBox. [000121]



Содержание раздела