| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сделать снимок раб. стола [D5, D6, Win2k, WinXP]

DDDeN ©   (2006-08-18 04:18:00) 

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

---

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

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


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;

---

DDDeN   (2006-08-18 09:09:00) [2]

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

---

PSPF2003   (2006-08-18 08:54:00) [3]

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;

---

tButton   (2006-08-18 07:08:00) [4]

GetDC(0) + BitBlt

---

Наверх