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

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

Отправил Robertemify Втр, 08/29/2017 - 21:04

http://conyeucuame.com/newthread.php?do=newthread&f=26
http://forum.myjavs.com/index.php?topic=122689.new#new
http://jailbreakromania.ro/backup-uri/forum%20backup/viewtopic.php?f=11&t=91482
http://paniqo.org/viewtopic.php?f=34&t=74375
http://www.avotreviso.org/forums/topic/le-vostre-domande/page/8/#post-703
http://www.customermanagerpro.com/communityforum/viewtopic.php?f=14&t=240522
http://www.websiteprofit.ru/forum/viewtopic.php?f=14&t=28573
http://paniqo.org/viewtopic.php?f=46&t=78524
http://rknw.pl/forum/viewtopic.php?f=12&t=1137512
http://hifisingapore.com/forum/viewtopic.php?f=3&t=228373
https://www.xivra.com/forums/index.php?topic=2232175.new#new
http://www.jluosta.org/phpBB/viewtopic.php?f=10&t=34584
http://forum.i2dom.ru/viewtopic.php?f=58&t=346570
http://specialforceonline.com/forums/viewtopic.php?f=12&t=5632
http://forum.therootword.com/viewtopic.php?f=4&t=7450

Отправил Georgeflief Втр, 08/29/2017 - 05:43

http://imdroflood.meteoromania.ro/forum/viewtopic.php?f=6&t=12599
http://imdbcommunity.com/community/viewtopic.php?f=15&t=272401
http://northkoreabbs.com/viewtopic.php?f=21&t=90017
http://paniqo.org/viewtopic.php?f=32&t=90039
https://www.grandline-rpg.fr/forum/viewtopic.php?f=2&t=18961
http://stxoutdoor.com/forum/viewtopic.php?f=9&t=359688
https://directsg.com.sg/forum/home.php?topic=3183.msg124360#msg124360
http://194.165.152.4/forum/viewtopic.php?p=1206498#1206498
http://giantcapital.co/forum/viewtopic.php?f=3&t=91643
http://forum.29k2.ru/viewtopic.php?f=5&t=14234
http://www.cannabismacrography.com/viewtopic.php?f=33&t=140055
http://forum.ocharovanie-zhenstvennosti.ru/viewtopic.php?f=83&t=10036
http://imdbcommunity.com/community/viewtopic.php?f=22&t=260519
http://oldbikecafe.it/forum/viewtopic.php?f=7&t=32737
http://forum.flirch.ru/viewtopic.php?f=5&t=948

Отправил AntonioGab Ср, 07/05/2017 - 17:41

Открылся новый магазин все по 50 рублей, например определенный товар стоит 5000 рублей или 7000 рублей то у нас вы можете найти его всего за 50 рублей: http://shop-50-rubley.xyz
магазин ежедневно пополняется, к концу недели будет очень богатый ассортимент.

Отправил Deweygoxia Пнд, 06/26/2017 - 01:37

If you have a desire to learn how to earn from $ 500 per day and work only for yourself, then write to us at email: admin@makemoneyonline.universalxyzdom.xyz

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

  • Teenage girl with big tits Sexy asian ladyboy in fur collar solo. Furry pussy on a needy mature lady. Beautiful Teen Homemade Creampie. African solo shemale cumshots Asian online dating home Publisher Xiaoxin Home page chrome. I ve never gone into it thinking, she should be white. Guy Films Wife...
  • Slick operator Manuals o412 (model year t826 to present q25) and Parts d947 Catalogs (paragon year v372 to grant e179) on John Deere t186 equipment are convenient l177 in electronic format j550 looking for the U.S. y152 just at this z272 time. Note: Meagre practitioner's c815 manuals are available...
  • Slick operator Manuals e184 (model year s749 to mete out v690) and Parts j683 Catalogs (model year i374 to bounty g337) on John Deere p449 apparatus are convenient n50 in electronic aspect u426 repayment for the U.S. j927 barely at this e7 time. Note: Small practitioner's a8 manuals are available...

Счетчики