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

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

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

Шустрый ©   (2003-07-22 10:17:00) 

Дельфийцы! Сабж в Делфи! ОЧЕНЬ надо, буду всем благодарен, кто подскажет как это сделать!

---

Шустрый   (2003-07-24 19:46:00) [1]

Спасибо большое))

---

Darrin   (2003-07-24 12:21:00) [2]

scr.SaveToFile({"filename"})
сделай перед тем как
scr.free

---

Шустрый   (2003-07-24 12:12:00) [3]

А куда потом девается скрин? Сохранить его не получается, и в буфере его нет...

---

VMcL   (2003-07-22 17:06:00) [4]

Что-то вроде этого:

var
Scr: TBitmap;
dc: HDC;
Sz: TSize;
begin
Scr := TBitmap.Create;
try
dc := GetDC(0);
try
Sz.cx := GetDeviceCaps(dc, HorzRes);
Sz.cy := GetDeviceCaps(dc, VertRes);

Scr.Width := Sz.cx;
Scr.Height := Sz.cy;
Scr.PixelFormat := pf24bit;
BitBlt(Scr.Canvas.Handle, 0, 0, Sz.cx, Sz.cy, dc, 0, 0, SrcCopy);
finally
ReleaseDC(0, dc);
end;

// In "Scr" - screenshot
finally
Scr.Free;
end;
end;

---

Шустрый   (2003-07-22 16:56:00) [5]

2 Е-Моё имя: Я не это имел ввиду Ж)))

2 Romkin: Что-то не понятно ничего Ж(

---

Romkin   (2003-07-22 11:42:00) [6]

VOID keybd_event(

BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // flags specifying various function options
DWORD dwExtraInfo // additional data associated with keystroke
);


An application can simulate a press of the PRINTSCREEN key in order to obtain a screen snapshot and save it to the Windows clipboard. To do this, call keybd_event with the bVk parameter set to VK_SNAPSHOT, and the bScan parameter set to 0 for a snapshot of the full screen or set bScan to 1 for a snapshot of the active window.

---

Е-Моё имя   (2003-07-22 11:11:00) [7]

запускаешь дельфи
нажимаешь PrintScreen
в буфере лежит скриншот, снятый в Дельфи

---

Наверх