Как программно заграбить полноэкранное окно DOS-сессии

[serjufa]

Кто знает, как программно заграбить (аналог PrintScreen) полноэкранное DOS окно?
Нижеприведенный код, запоминающий Windows окна на полноэкранном DOS окне дает белый квадрат:

bmp := TBitmap.Create;
jp :=TJpegImage.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
Chirina := BMP.width-200;

BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Clipboard.Assign(bmp);

{----------------- start çàïèñü â bmp-file -----------------}
if Clipboard.HasFormat(CF_BITMAP) then
begin
{ ðàñøèôðîâêà Clipboard.HasFormat(..........)
CF_TEXT Text with a CR-LF combination at the end of each line.
CF_BITMAP A Windows bitmap graphic.
CF_METAFILEPICT A Windows metafile graphic.
CF_PICTURE An object of type TPicture.
CF_COMPONENT Any persistent object.}
bmp.Canvas.Font.Color := clGreen;
bmp.Canvas.Font.Size:=10;
........
........
try
with Bmp do
begin
jp.Assign(Bmp);
jp.SaveToFile('\VOL1\LOG\'+NameJPG+'.jpg');
end;
except

[voldimar]

Надо найти окно (по имени или как-нибудь еще), Выяснить его координаты и сграбить со всего экрана кусок.

[serjufa]

Если бы я знал как грабить этот кусок