Главная страница
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.012 c
3-75829
denary
2003-02-07 00:57
2003.02.24
Не удаляется значение из ListBox


4-76224
XAli
2003-01-11 11:05
2003.02.24
Как програмно без сообщений запустить regsvr32.exe hasp32.ocx


3-75743
ddenisv
2003-02-07 13:53
2003.02.24
В TQuery не работает locate. Help!


14-76188
Шоломицкий
2003-02-08 13:58
2003.02.24
Не знаете где можно скачать клипы группы


3-75746
FreeLancer
2003-02-06 18:18
2003.02.24
Массовый INSERT