1

Вот код, который делает скриншот экрана. Он делает скриншот, но без ярлыков (просто фоновую картинку).

var bmp: TBitmap;
begin 
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
       GetDC(FindWindow('ProgMan', nil)), 0,0,SRCCOPY);
Img1.Width := Screen.Width;
Img1.Height := Screen.Height;
Img1.Picture.Assign(bmp);
bmp.Free;
end;

Возможно ли сделать скриншот экрана с ярлыками? А еще лучше, со всеми открытыми окнами.

2
  • что за ОС? 󥉃󥉃󥉃󥉃
    – mymedia
    3 июн 2017 в 14:06
  • .OC Windows 10.
    – Nikita
    3 июн 2017 в 14:13

1 ответ 1

0

Разобрался. Надо поменять всего одну строчку и он будет делать скриншот экрана со всеми открытыми окнами:

BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
       GetDC(0), 0,0,SRCCOPY);

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.