Как получить снимок экрана 2

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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