Можно ли получить растровое изображение формы с заголовком и рамкой?

Стандартные средства Delphi позволяют получать растровое изображение только внутренней части окна. Для получения изображения всего окна с заголовком и рамкой необходимо воспользоваться функциями API.

Во-первых, получаем контекст всего окна функцией:

function GetWindowDC(Wnd: HWnd): HDC;

Затем копируем растровое изображение окна в компонент TImage (для примера). И освобождаем полученный контекст окна:

function ReleaseDC(Wnd: HWnd; DC: HDC): Integer;

Пример:

procedure TForm1.Button1Click(Sender: TObject);
VAR DC: hDC;
begin
 
 DC := GetWindowDC(Handle);
 Image1.Picture.BitMap.Height := Height;
 Image1.Picture.BitMap.Width := Width;
 BitBlt(Image1.Picture.BitMap.Canvas.Handle, 0, 0, Width, Height, 
        DC, 0, 0, SRCCOPY);
 ReleaseDC(Handle, DC);
 
end;

Последние комментарии

  • РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ В 1 200 000 ФОРМ РОССИИ И СНГ - 3000 РУБЛЕЙ РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ ЛЮБОЙ СТРАНЫ - 3000 РУБЛЕЙ ЗА 1 МЛН Это рассылка по формам с сайтов , которые заполняются нашей программой. письмо с вашим коммерческим предложением приходит на контактный E-mail...
  • http://sporteco.ru/product/gruzoperevozki-v-voskresensk-iz-moskvy http://realty21century.ru/index.php/statji/151-restavratsiya-chugunnoj-vanny-emalyu http://www.burx.ru/category/ctati http://eur-style.ru/product/krovat-iz-massiva-v-interere
  • casvulk56 casvulk71 casvulk29 casvulk27 casvulk50 casinoqlo casinovul87 casinovul52 casinovul64 casinovul47 casinovul43

Счетчики