Copier le contenu d'un WebBrowser vers un Bitmap

var
ShellDocObjectView: HWND;
InternetExplorerServer: HWND;
WebCanvas: TCanvas;
begin
ShellDocObjectView := FindWindowEx(WebBrowser1.Handle,
0,
'Shell DocObject View',
nil);
InternetExplorerServer := FindWindowEx(ShellDocObjectView,
0,
'Internet Explorer_Server',
nil);


WebCanvas := TCanvas.Create;
WebCanvas.Handle := GetDC(InternetExplorerServer);


InvalidateRect(InternetExplorerServer, nil, True);


WebCanvas.Lock;
Image1.Canvas.Lock;
try
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
WebCanvas,
Rect(0, 0, WebBrowser1.Width,
WebBrowser1.Height));
finally
Image1.Canvas.Unlock;
WebCanvas.Unlock;
ReleaseDC(InternetExplorerServer, WebCanvas.Handle);
WebCanvas.Handle := 0;
WebCanvas.Free;
end;