Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Программно нажимаем Print Screen

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

Совместимость: Delphi 3.x (или выше)

Приведённая здесь функция делает копию изображения экрана и сохраняет её в буфере обмена (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.Canvas.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);

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru