Как сделать скриншот определенной части экрана?

[JonMagon]

Вообщем помогите сделать программу, которая будет делать скриншот определенной части экрана, а то я себе не представляю как это. Зарание спасибо за ответ

[Swarog]

сразу видно поиском не пользовались ай-йа-яй

вот из колекции примеров делфиворлд

Разместите на форме 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.

[JonMagon]

Спасибо, а как сделать, чтобы сделался скриншот компонента?

[Swarog]

ищете Handle этого компонент и вот в этом месте

Handle := GetWindowDC(GetDesktopWindow);

присваивете Handle не рабочего стола а нужного контрола

хотя здесь могу ошибаться

[JonMagon]

неа, не работает

[JonMagon]

может лучше определить координаты этого компонента, а потом заскринить как с рабочего стола?

[JonMagon]

Я могу определить только координаты на форме, а как определить координаты на мониторе?

[Sparkman]

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

Я могу определить только координаты на форме, а как определить координаты на мониторе?

Form1.Top и Form1.Left - координаты формы на экране

[JonMagon]

Нет, это координаты на форме, а мне нужно на мониторе. Если Top:=0 незначит, что компонент будет в верхнем левом углу экрана, а он будет в верхнем левом углу формы *_*

[Swarog]

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