Создание скриншета заданного размера

[Lokos]

Здравствуйте.
Пытаюсь делать так

procedure ScreenShot(PathToSave: string);
begin
  with TBitmap.Create do
  begin
    Width := 1030;//Screen.Width; // указываем размеры
    Height := 777; //Screen.Height;

    BitBlt(Canvas.Handle, FormKartochka.Left, FormKartochka.Top, Width, Height,
       GetDC(GetDesktopWindow),  FormKartochka.Left, FormKartochka.Top, SRCCOPY);

    SaveToFile(PathToSave); // сохраняем на диск
    Free; // освобождаем
  end;
end;

но скрин создается от координат 0,0 а необходимо чтоб от свойств формы left и Top

[asmodey1]

Если правильно написать слово "скриншОт", то
http://programmersforum.ru/showthrea...E8%ED%F8%EE%F2