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;

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