| Вопрос: Фотанье экрана | Добавлено: 25.05.04 10:53 |
Автор вопроса:  someone | Web-сайт: 123
|
| Как сфотографировать экран, но поместить результат на Picture или в буфер? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  freeloader  ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #1 | Добавлено: 25.05.04 11:54 |
|
В буфер легко, просто пошли клавишу через SendKeys() Print Scrn, а не через буфер и в Picture посмотри ниже, помоему там даже две темы подряд было
|
||
|
Номер ответа: 2 Автор ответа: someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #2 | Добавлено: 25.05.04 14:48 |
| Благодарю | ||
|
Номер ответа: 3 Автор ответа: @CyRax PTRICQ: 204447456 Вопросов: 28 Ответов: 664 |
Web-сайт: Профиль | | #3 | Добавлено: 25.05.04 14:51 |
Если в Picture, тогда смотри на моём сайте (вот и пригодилось кому то  ).
|
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 25.05.04 15:38 |
|
А по-моему это же обсуждалось тут на форуме, причем не единожды... и идей там было несколько
|
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 26.05.04 16:45 |
|
если всё ещё надо, то вот:
Это поместить в область деклараций модуля Public Declare Function GetDesktopWindow Lib "user32" () As Long Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Public Declare Function BitBlt Lib "gdi32" _  ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _ ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Public Const SRCCOPY = &HCC0020 Код, копирующий изображение экрана в окно. Размещается в форме. Не забудьте свойство формы AutoRedraw установить в True.  im hDesk, hDeskDC
hDesk = GetDesktopWindow() hDeskDC = GetDC(hDesk) BitBlt Me.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY Если необходимо изображение поместить в Picture, вместо Me.hDC укажите Picture1.hDC. |
||
|
Номер ответа: 6 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #6 | Добавлено: 29.05.04 10:07 |
|
To Sne -
поиска по форуму нет, а так лазить неохота To Hacker And @CyRax PTR спасибо |
||
|
Номер ответа: 7 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #7 | Добавлено: 29.05.04 10:33 |
| Слушай см. "Пример" в Общем Форуме там прога этим и занимается. | ||
Страница: 1 |