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

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

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

  • 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정...
  • 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999...
  • 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원...

Счетчики