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

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

PrintScreen windows окна [D6]

Анюта ©   (2003-08-20 11:40:00) 

Доброго дня суток. Кто-нибудь знает, как программно реализовать PrintScreen определенного окна. Если не затруднит покажите пожалуйста на примере…

---

Анюта   (2003-08-21 04:53:00) [1]

KosilkA, большое спасибо.

---

KosilkA   (2003-08-20 13:14:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
Canvas:TCanvas;
begin
Canvas:=TCanvas.Create();
Canvas.Handle:=windows.GetWindowDC(windows.GetForegroundWindow);
Width:=Screen.Width;
Height:=Screen.Height;
Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),Canvas,Rec t(0,0,Screen.Width,Screen.Height));
Canvas.Free;

end;

---

Наверх