Поместить экран в файл

← →
FoxM (2002-11-27 19:38) [0]

Товарищи по клавиатуре и братья по Delphi! Помогите мне засунуть содержимое экрана в файл. Скриншот, только програмно. Расширение файла любое.

← →
apay © (2002-11-27 23:35) [1]

примерно так:

Bmp := TBitmap.Create;
Bmp.Width := Screen.Width;
Bmp.Height := Screen.Height;
DC := GetDC( GetDesktopWindow );
BitBlt( Bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY );
ReleaseDC( GetDesktopWindow, DC );
Bmp.SaveToFile( "AnyFile.bmp" );
Bmp.Free;

← →
Song © (2002-11-28 08:17) [2]

keybd_event() + VK_SNAPSHOT

← →
Игорь Шевченко © (2002-11-28 12:22) [3]

Song © (28.11.02 08:17)

А файл где указывать ? :-)

← →
Song © (2002-11-28 13:08) [4]

А файл из клипборда достать. (ну т.е. достать информацию и сохранить её в файл).

2 Song
а клипбрд зачем гадить? может там че нужное есть?

Поместить экран в файл Найти похожие ветки