VPF::Нужно рисунок с екрана - Форум программистов

Budy

Дата 6.11.2004, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Хелп!
Надо получить рисунок рабочего стола, да еще и скопировать его в файл с малым размером

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

_hunter

Дата 6.11.2004, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

пользуемся поиском:
http://forum.vingrad.ru/index.php?showtopic=30468
http://forum.vingrad.ru/index.php?showtopic=33117

--------------------

Tempora mutantur, et nos mutamur in illis...

SoWa

Дата 9.11.2004, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Попробуй так:

Код


var
 bmp: TBitmap;
 DC: HDC;
 i,k: integer;
 x,y,x0,y0: integer;
begin
 bmp:=TBitmap.Create;
 bmp.Height:=x;
 bmp.Width:=y;
 DC:=GetDC(0);  //????p????p ??p???
 bitblt(bmp.Canvas.Handle,x0,y0 ,(x-x0),(y-y0),
 DC,x0,y0, SRCCOPY);
 ReleaseDC(0, DC);
 scrprint:=bmp;
end;

Х0 и У0 - это координаты верхнего левого угла области снимка
Х и У- координаты правого нижнего
И посмотри хелп на bitblt!

Это сообщение отредактировал(а) SoWa - 9.11.2004, 06:32

--------------------

Всем добра smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »