Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

PrintScreen   Найти похожие ветки 

← →
Zool   (2002-02-25 15:35) [0]

Уважаемые гаспода програмисты! Здравствуйте! Не подскажите ли как
сделать програмно PrintScreen.Если не трудно то с примерчиком...
Спасибо.

---

← →
Zool   (2002-03-02 11:25) [1]

Народ не ленись, плиз!

---

← →
Dimka Maslov ©   (2002-03-02 12:16) [2]

uses Clipbrd;


var
B: TBitmap;
begin
B:=TBitmap.Create;
keybd_event(VK_SNAPSHOT, 0, 0, 0);
keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
B.Assign(Clipboard);
....

---

← →
amamed_3071 ©   (2002-03-02 14:47) [3]

var bmp:Tbitmap;
begin
try
bmp:=Image1.Picture.Bitmap ;
Bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width ;
BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY);
except
End;
Image1.Repaint;

---

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

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c