Скриншот экрана

[Terran]

Уважаемые прграммисты! Помогите решить проблему. Я делаю скриншот экрана и полученый скриншот сохраняется в фаил. Как можно полученное изображение экрана записать в переменную?

uses
JPEG, ExtCtrls...

private
{ Private declarations }
procedure getscreen;

procedure TForm1.getscreen;
var
bmp: Graphics.TBitmap;
DC: HDC;
MyJpeg: TJpegImage;
Image1: TImage;
begin
try
bmp:=Graphics.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);
Image1:= TImage.Create(self);
MyJpeg:= TJpegImage.Create;
bmp.IgnorePalette:=true;
Image1.Picture.Assign(bmp);
MyJpeg.Assign(Image1.Picture.Bitmap );
MyJpeg.SaveToFile('c:\Screen.jpg');
ReleaseDC(0, DC);
Image1.free;
MyJpeg.free;
except
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
getscreen;
end;


Заранее благодарен.

[Квэнди]

оно у вас и так в переменной MyJpeg

[monkbeer]

Пошастай на форуме - это всё уже обсуждалось