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

Вниз

Сделать снимок раб. стола   Найти похожие ветки 

 
DDDeN   (2006-08-18 04:18) [0]

Подскажите как сделать снимок всего рабочего стола и поместить его в TImage? Спасибо!


 
tButton ©   (2006-08-18 07:08) [1]

GetDC(0) + BitBlt


 
PSPF2003 ©   (2006-08-18 08:54) [2]

var
bmp: TBitmap;
DC: HDC;

begin

bmp:=TBitmap.Create;

bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;

DC:=GetDC(0);  

bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      DC, 0, 0, SRCCOPY);

bmp.SaveToFile("Screen.bmp");

ReleaseDC(0, DC);
end;


 
DDDeN   (2006-08-18 09:09) [3]

спасибо, уважаемые! бум пробовать!)))


 
DDDeN   (2006-08-18 11:01) [4]

доработал. теперь сохраняет в джепег


procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
jp: TJpegImage;
begin
bmp:=TBitmap.Create;

bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;

DC:=GetDC(0);  

bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
     DC, 0, 0, SRCCOPY);

//bmp.SaveToFile("Screen.bmp");

jp := TJpegImage.Create;
 try
   with jp do
   begin
     Assign(bmp);
     SaveToFile("Screen.jpg")
   end;
 finally
   jp.Free;
 end;

ReleaseDC(0, DC);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
2-1157739933
gear
2006-09-08 22:25
2006.10.01
Можно ли восстановить исходный код по exe содержащих в себе debug


1-1156165096
laurely
2006-08-21 16:58
2006.10.01
Работа с тонким клиентом


15-1157985150
Ломброзо
2006-09-11 18:32
2006.10.01
Ищу tool для Oracle


2-1158090623
Murava
2006-09-12 23:50
2006.10.01
PostMessage(<окно>, wm_LButtonDown, 0, <координаты>)-не пашит :(


2-1158157304
X_Tra
2006-09-13 18:21
2006.10.01
Double/int на c++ и соответствующие типы в D7