Сделать снимок раб. стола

← →
DDDeN (2006-08-18 04:18) [0]

Подскажите как сделать снимок всего рабочего стола и поместить его в TImage? Спасибо!

← →
tButton © (2006-08-18 07:08) [1]

GetDC(0) + BitBlt

← →
PSPF2003 © (2006-08-18 08:54) [2]

var
bmp: TBitmap;
DC: HDC;

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("Screen.bmp");

ReleaseDC(0, DC);
end;

← →
DDDeN (2006-08-18 09:09) [3]

спасибо, уважаемые! бум пробовать!)))

← →
DDDeN (2006-08-18 11:01) [4]

доработал. теперь сохраняет в джепег

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
jp: TJpegImage;
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("Screen.bmp");

jp := TJpegImage.Create;
try
with jp do
begin
Assign(bmp);
SaveToFile("Screen.jpg")
end;
finally
jp.Free;
end;

ReleaseDC(0, DC);
end;

Сделать снимок раб. стола Найти похожие ветки