как сделать снимок экрана?

[Briz]

На моей форме расположен PaintBox, button1 и button2. Как сделать чтоб при нажатии Button1 делался снимок экрана и показывал на painbox, а при нажатии button2 сохранялось в jpeg?

[kommunist]

Сообщение от Briz

. Как сделать чтоб при нажатии Button1 делался снимок на весь экран

снимок чего?

[Briz]

снимок экрана

[Omedus]

procedure TForm1.Button1Click(Sender: TObject);
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile('c:/Screen.jpg'); //Здесь можешь изменить путь, куда нужно сохранить файл. Так же в этой строчке изменяется название файла.
ReleaseDC(0, DC);
bmp.Free;
end;

В результате нажатия на Button1, в корневом каталоге c: будет создан файл - скриншот экрана с именем Screen.jpg
А вот дальше додумывай сам

[Briz]

"bmp" что это такое? он ошибку выдает на первой строчке

[Omedus]

Сообщение от Briz

"bmp" что это такое?

bmp - одно из расширений файла-изображения. Извини, я проглядел, что тебе не bmp, а jpg нужен) Уже поправил

[Briz]

bmp:=TBitmap.Create; он сдесь выдает ошибку

[Omedus]

Сделай переменные:

Var
...
DC: HDC;
bmp: TBitmap;

[Briz]

DC:=GetDC(0); теперь сдесь ошибка

[Omedus]

Прости, я забыл, что там нужны две переменные. Пост поправил.

Сообщение от Omedus

Сделай переменные:

Var
...
DC: HDC;
bmp: TBitmap;