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

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

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;