Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.24;
Скачать: CL | DM;

Вниз

Как получить изображение раб стола???   Найти похожие ветки 

 
nikulin ©   (2003-02-14 12:11) [0]

Помогите пожалуйста!

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

Заранее благодарен!


 
MBo ©   (2003-02-14 12:31) [1]

свернуть окна, GetDC(0), BitBlt, ReleaseDc


 
Vint ©   (2003-02-14 12:33) [2]

примерно так:
var
FonCan: HDC;
Bitmap: TBitMap;


надо описать формат картинки, например:
Bitmap := TBitMap.Create;
Bitmap.PixelFormat := pf24bit;
Bitmap.Width := 800;
Bitmap.Height := 600;


Запоминаем:
FonCan := GetDC(0);
bitblt(Bitmap.Canvas.Handle, 0, 0, Sh, Sw,FonCan, SL, ST, SRCCOPY);
ReleaseDC(0, FonCan);

Сохраняем:
Bitm.SaveToFile("...bmp");

вроде все.


 
Vint ©   (2003-02-14 12:37) [3]

не Bitm.SaveToFile("...bmp"), а Bitmap.SaveToFile("...bmp"); поспешил...
ну и ... Bitmap.Free; в конце :)


 
Dms   (2003-02-14 13:47) [4]

Зачем только все окна то сворачивать ? GetDC(0) всегда выдает dc рабочего стола.


 
Vint ©   (2003-02-14 14:29) [5]

>Dms (14.02.03 13:47)
Нет,
GetDC(0) дает DC экрана - всего, с окнами, иконками и т.д., но можно указать любой Handle. Не помню, но помоему GetDC(GetDesktopWindow()) указывает на рабочий стол.




Страницы: 1 вся ветка

Текущий архив: 2003.02.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
8-76043
igor1984
2002-11-08 14:54
2003.02.24
апгрейд Timage


4-76241
mate
2003-01-10 16:31
2003.02.24
E-mail


6-76064
Docker
2003-01-06 20:15
2003.02.24
Delphi 7 урезал возможности Delphi6


1-75856
DmitryMN
2003-02-13 16:02
2003.02.24
Ошибка после вывода в Excel


4-76226
mbIkola
2003-01-10 15:08
2003.02.24
Как нажать программно клавишу ALT