Я думаю, что будет проще сделать снимок всего экрана приложения. Попробуйте это:
function screenshot: boolean;
var
Bild : TBitmap;
jpg : tjpegimage;
c: TCanvas;
r: TRect;
begin
try
c := TCanvas.Create;
bild := tbitmap.Create;
c.Handle := GetWindowDC(GetDesktopWindow);
try
r := Rect(0, 0, Screen.Width, Screen.Height);
Bild.Width := Screen.Width;
Bild.Height := Screen.Height;
Bild.Canvas.CopyRect(r, c, r);
JPG := TJpegImage.Create;
jpg.smoothing := true;
jpg.CompressionQuality := 60 ;
jpg.Assign(bild);
jpg.compress;
jpg.SaveToFile(dircamp+'\screen.jpg');
finally
ReleaseDC(0, c.Handle);
Bild.free;
jpg.free;
c.Free;
end;
except
end;
Есть много примеров коды вокруг этого шоу, как делать скриншоты –
программно на delphi? просто нет частичного нечувствительного к регистру слова, а именно «изображение», «захват» или «растровое изображение» во всех источниках хрома vcl или его демо. –
думаю ответ невозможно. «это еще не возможно в CEF3, необходимые функции API были удалены в CEF3» –