Вопрос и Ответ 55 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Макротренды в бизнесе. Как стать компанией новой волны, создавая эмоции, привлекающие клиентов

Эта книга не просто исследует существующие тенденции и теории – она открывает читателю новый путь к трансформации бизнеса. Ставя на одну ступень потребительский опыт и инновационное лидерство, Брайан Солис подробно объясняет, как повысить эффективность бизнеса и степень вовлеченности потребителей, а также достичь желаемых взаимоотношений между компанией и ее клиентами. В его книге вы найдете ответы на вопросы, почему потребительский опыт имеет столь огромное значение и какое влияние он может оказать на будущее бизнеса в целом. На русском языке публикуется впервые.

Социальные сети. Источники новых клиентов для бизнеса

Книга содержит практические способы привлечения новых клиентов для бизнеса из социальных сетей. Более подробно в ней разобраны основные принципы продвижения бизнес-страниц в таких социальных сообществах, как «ВКонтакте» и «Facebook». Во второй части книги детально рассмотрены отдельные примеры продвижения. Ключевые моменты издания:

– этапы и последовательность действий по привлечению клиентов;

– получение потока клиентов;

– монетизация;

– оптимизация сайта;

– оформление бизнес-страниц;

– генерация и публикация контента.

Рекомендуется всем, кто хочет использовать новые источники привлечения клиентов.

Вопрос и Ответ 55

Версия для печати

Вопросы и Ответы

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

Стандартные средства 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;

............

...предыдущая страница следующая...
оглавление