[san-46]

Если без Delphi, то надо найти программу, которая умеет это делать. Таких программ великое множество. Windows своими штатными средствами может только снимать либо весь экран, либо активное окно.
Если в программе на Delphi то так (источник DelphiWorld, успешно протестировано на D7):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  DT: HDc;
  DTCanvas: TCanvas;
  DTRect: TRect;
begin
  DT := GetWindowDC(GetDeskTopWindow);
  DTCanvas := TCanvas.Create;
  DTCanvas.Handle := DT;
  DTRect := Rect(0, 0, 200, 200); //указываем координаты куска экрана для съемки
  Image1.Canvas.CopyRect(DTRect, DTCanvas, DTRect);
  ReleaseDC(GetDeskTopWindow, DT);
  DTCanvas.Free;
end;