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

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

print Screen [D5, Win95/98]

Odd_1 ©   (2002-11-13 00:22:00) 

как занести изображение рабочего стола в буфер, и сохранить его хотя бы в TBitmap ?

---

Song   (2002-11-13 09:18:00) [1]

Сгенерируй VK_SNAPSHOT и достань картинку из буфера обмена.

---

BarikNT   (2002-11-13 03:00:00) [2]

Так помойму надёжнее и мона копировать часть экрана

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop : TCanvas ;
bm : TBitMap;
begin
DeskTop := TCanvas.Create ;
bm :=TBitMap.Create;
bm.Width:=screen.Width;
bm.Height:=screen.Height;
try
DeskTop.Handle := GetWindowDC (GetDesktopWindow) ;
bm.Canvas.CopyRect(Rect (0, 0, screen.Width, screen.Height),DeskTop,
Rect (0, 0, screen.Width, screen.Height));
bm.SaveToFile("d:\111.bmp");
finally
DeskTop.Free;
bm.Free
end
end;

---

Diamond Cat   (2002-11-13 02:17:00) [3]

ну наверно что-то типа
var
dc:hdc;
bm:Tbitmap;
begin
dc:=getdc(getdesktopwindow());
bm:=tbitmap.create;
bm.canvas.handle:=dc;
bm.savetofile(тра-ля-ля);

---

Наверх