Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > screensaver

Автор: BSOD 5.12.2004, 20:37

Как скопировать снимок экрана в буфер?

Автор: FRAGNATIC 6.12.2004, 01:41

это называется скрин шот а не скринсервер
ctrl+printScreen smile

а так вот
http://forum.vingrad.ru/index.php?showtopic=772&hl=%CA%E0%EA+%EA%EE%EF%E8%F0%EE%E2%E0%F2%FC+%EE%E1%F0%E0%E7+%FD%EA%F0%E0%ED%E0+%E2+%F4%E0%E9%EB
чуть отредактируй да и всё
Добавлено @ 01:42
это называется скрин шот а не скринсервер
ctrl+printScreen smile

Автор: Akella 8.12.2004, 09:47

в какой буфер, в буфер чего smile

Автор: mntek 8.12.2004, 10:16

Наверно так:

Код


function CaptureScreen; 
var 
  ScreenDC: HDC; 
  TempBMP: TBitmap;
begin 
  TempBMP := TBitmap.Create; 
  TempBMP.Width := Screen.Width; 
  TempBMP.Height := Screen.Height; 
  ScreenDC := GetDC(0); 
  try 
    BitBlt(TempBMP.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, ScreenDC, 0, 0, SRCCOPY);
    Clipboard.Assign(TempBMP);   
  finally 
    ReleaseDC(0, ScreenDC);
    TempBMP.Destroy; 
  end; 
end;