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

[Briz]

все работает! Но мне нужно чтоб при нажатии button2 выдовало окно куда сохранить рисунок.

[Omedus]

procedure TForm1.Button2Click(Sender: TObject);
begin
p:=InputBox('Путь сохранения скриншота','Введите полный путь до существующей папки','c:\')+'Screen.jpg';
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(p);
ReleaseDC(0, DC);
bmp.Free;
end;
//не забудь прописать переменную "p" формата string :)

[Briz]

все равно ошибка p:=InputBox('Путь сохранения скриншота','Введите полный путь до существующей пап я прописал
var
p: string;

[Alex21]

Дописывая +'.JPG' рисунок все равно остается растровым. (посмотрите на его размер)
Для сохранения в JPEG вот приер:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DC: HDC;
bmp: TBitmap;
jpgImg: TJPEGImage;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  bmp:=TBitmap.Create;
  jpgImg := TJPEGImage.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);

  ReleaseDC(0, DC);
  jpgImg.Assign(bmp); {в JPG грузим Битмап}
  jpgImg.CompressionQuality:=100; {устанавливаем компрессию (качество) (1-100)}
  jpgImg.SaveToFile('f:/Screen.jpg'); {сохраняем в формате JPG}
  jpgImg.Free;
  bmp.Free;
end;

end.

[Briz]

отлично, но как сделать чтоб я мог сам его сохранять, а н автоматом?

[Alex21]

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

отлично, но как сделать чтоб я мог сам его сохранять, а н автоматом?

компоненты:
SaveDialog, SavePictureDialog

[Briz]

а можно код?

[Alex21]

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

а можно код?

Добавь компанент SavePictureDialog и в предыдущем коде измени:

  if SavePictureDialog1.Execute then
    jpgImg.SaveToFile(SavePictureDialog1.FileName+'.jpg'); {сохраняем в формате JPG}

[Briz]

спасибо! а можно сделать так чтоб снимок сначало появлялся на PaintBox, а потом сохранять?

[Alex21]

Грузите лучше в Image:

....
  image1.Width:=bmp.Width;
  image1.Height:=bmp.Height;
  image1.Picture.Bitmap:=bmp;
  .....