Главная страница
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
1-75892
Grom
2003-02-14 09:04
2003.02.24
DELPHI&EXEL Save As


3-75749
zubr
2003-02-05 13:28
2003.02.24
Как использовать TADOTable при подключении к Access


14-76112
igorr
2003-02-05 14:41
2003.02.24
Притча


3-75805
roottim
2003-02-04 16:53
2003.02.24
PostgreeSQL VS SAP DB


3-75788
Kalinka
2003-02-06 10:38
2003.02.24
Как передать имя таблицы при вызове процедуры