Сохранение в *.Bmp - файл

[Рустам]

Здравствуйте!
Подскажите, как мне сохранить область экрана в файл?

[dron-s]

элекментарно

var
  DC: HDC;
  Canva: TCanvas;
  B: TBitmap;
begin
  Canva := TCanvas.Create;
  B := TBitmap.Create;
  DC := GetDC(0);
  try
    Canva.Handle := DC;
    with Screen do
    begin
      B.Width := Width;
      B.Height := Height;
      B.Canvas.CopyRect(Rect(0, 0, Width, Height),
      Canva, Rect(0, 0, Width, Height));
      B.SaveToFile('c:\NameFile.bmp');
    end
  finally
    ReleaseDC(0, DC);
    B.Free;
    Canva.Free
  end

[Рустам]

А что за переменная Screen?

[dron-s]

Forms.Screen

[Рустам]

Спасибо, dron-s! Респект!

[dron-s]

да не за что
обращайся

[Рустам]

Прошу прощения, за возможно неверную постановку вопроса, но мне необходимо сохранять только часть экрана!!! Допустим от (100,250) до (360,500) ?

[dron-s]

подставляй вместо Width и Height координаты Screen.Width и Screen.Height

[Рустам]

Чет я не соображу: Можно кодом,,, Please!!!

[Карась]

      B.Width := Width;   
      B.Height := Height;

Вместь Width и Height ставишь координаты. (это задаёт размеры скрина... тоесть область)

А также в строке

Canva, Rect(0, 0, Width, Height));

Нолики тоже обозначают координаты. (Двигает "квадратик" сьёмки по экрану)