Карта сайтаСсылкиКонтакты

Как сделать снимок рабочего стола

PDF Печать
Статьи

Чтобы сделать снимок рабочего стола Windows будем использовать функцию, которая будет копировать изображение рабочего стола при помощи BitBlt и возвращать значение в TBitmap. В данном примере при нажатии на кнопку копируем изображение рабочего стола Windows в Image1.

Вот собственно, сам код, который это демонстрирует:


function GetDesktopScreenShot:TBitmap;
var
 Desktop:HDC;
begin
 Result:= TBitmap.Create;
 Desktop:= GetDC(0);
try
try
 Result.PixelFormat := pf32bit;
 Result.Width := Screen.Width;
 Result.Height := Screen.Height;
 BitBlt(Result.Canvas.Handle,0,0, Result.Width, Result.Height, Desktop,0,0,SRCCOPY);
 Result.Modified := True;
finally
 ReleaseDC(0,Desktop);
end;
except
 Result.Free;
 Result:=nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.Bitmap := GetDesktopScreenShot;
end;

 

Добавить комментарий


Защитный код
Обновить