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

← →
Шустрый © (2003-07-22 10:17) [0]

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

← →
Е-Моё имя © (2003-07-22 11:11) [1]

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

← →
Romkin © (2003-07-22 11:42) [2]

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 16:56) [3]

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

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

← →
VMcL © (2003-07-22 17:06) [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-24 12:12) [5]

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

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

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

Как сделать скриншот? Найти похожие ветки