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

Вниз

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

← →
Шустрый   (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]

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

---

← →
Darrin   (2003-07-24 12:21) [6]

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

---

← →
Шустрый   (2003-07-24 19:46) [7]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.009 c