Программно нажимаем Print Screen

Программно нажимаем Print Screen

Приведённая здесь функция делает копию изображения экрана и сохраняет её в буфере обмена (Clipboard).  Так же
необходимо включить в Ваш проект файл ClipBrd.pas.
procedure SendScreenImageToClipboard;
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Clipboard.Assign(bmp);
finally
bmp.Free;
end;
end;

Следующая функция скопирует изображение экрана в в bitmap.  Переменная bitmap *должна* быть инициализирована до
вызова этой функции.
procedure GetScreenImage(bmp: TBitmap);
begin
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canva!
s.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
end;

Автор: Simon Carter (simon.carter@orcka.com)
Источник: http://www.sources.ru/delphi/

Комментарий от "Anatoly Podgoretsky":
Весь экран
keybd_event(VK_SNAPSHOT,1,0,0);
keybd_event(VK_SNAPSHOT,1,KEYEVENTF_KEYUP,0);

Активное окно
keybd_event(VK_SNAPSHOT,0,0,0);
keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0);

Эта запись была добавлена в Вторник, 20 мая, 2008 - 21:04 В разделы Аппаратные средства, Клавиатура. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.