Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

Скриншот   Найти похожие ветки 

← →
холодильник   (2006-08-03 10:46) [0]

Как сделать скриншот активного окна?

---

← →
Desdechado ©   (2006-08-03 10:56) [1]

Alt+PrintScreen

---

← →
SerJaNT ©   (2006-08-03 10:59) [2]

procedure ScreenShotActiveWindow(Bild: TBitMap);
var
 c: TCanvas;
 r, t: TRect;
 h: THandle;
begin
 c := TCanvas.Create;
 c.Handle := GetWindowDC(GetDesktopWindow);
 h := GetForeGroundWindow;
 if h <> 0 then
   GetWindowRect(h, t);
 try
   r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
   Bild.Width  := t.Right - t.Left;
   Bild.Height := t.Bottom - t.Top;
   Bild.Canvas.CopyRect(r, c, t);
 finally
   ReleaseDC(0, c.Handle);
   c.Free;
 end;
end;

---

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

Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c