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

Previous  Top  Next

    
 

 

Автор: Simon Carter

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

Приведённая здесь функция делает копию изображения экрана и сохраняет её в буфере обмена (Clipboard). Так же необходимо включить в Ваш проект файл ClipBrd.pas.

Code:

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 *должна* быть инициализирована до вызова этой функции.

Code:

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;

 

 

©Drkb::01510

Взято из http://forum.sources.ru