Как получить снимок экрана (типа 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]