Скриншот Сторонней Программы

[Janger]

В общем, ситуация такая.
К примеру, у меня на рабочем столе открыты: Браузер + Антивирус + Word
И я хочу, что бы моя программа, делала скриншот не всего монитора, а только скриншот определённой программы.
Я к примеру, хочу, что бы программа сделала скриншот Word. Но как это сделать?

У меня есть одно предположение, как это сделать...
1) Выбираем имя нужной нам программы
2) Узнаём её координаты
3) Делаем скриншот монитора, согласно полученным координатам

Если я рассуждаю верно, тогда что бы узнать координаты нужного мне окна, надо использовать функцию GetWindowsRect.
Не сталкивался, щас буду читать

[Человек_Борща]

FindWindowEx+GetWindowRect+BitBlt = скриншот окна программы.

Только 1 хитрость есть:
1. Программа должна стать поверх всех окон.
2. Игровые D3D, OpenGL, DX таким способов вы снять не сможете. Надо идти через DIB.

[Janger]

Сообщение от Человек_Борща

FindWindowEx+GetWindowRect+BitBlt = скриншот окна программы.

Только 1 хитрость есть:
1. Программа должна стать поверх всех окон.
2. Игровые D3D, OpenGL, DX таким способов вы снять не сможете. Надо идти через DIB.

Я явно делаю, что то не так. Потому что, форма копируется нужных размеров, но картинка вся белая. Вообще ничего нету.

[Человек_Борща]

Окно которое вы хотите заснять должно быть видимым. Показывайте код, как делаете скрин.

[Janger]

Сообщение от Человек_Борща

Окно которое вы хотите заснять должно быть видимым. Показывайте код, как делаете скрин.

1) Окно видимое
2) Вот код:

hell:=ComboBox2.Text;
h := findwindow(nil, PWideChar(WideString(hell)));
if h<>0 then
begin
  GetWindowRect(h, WindowRect);
  ShowMessage(Format('top=%d Left=%d Width=%d Height=%d',[WindowRect.Top, WindowRect.Left,
  WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top]));

    bmp := TBitmap.Create;
    bmp.Width := WindowRect.Right-WindowRect.left;
    bmp.Height := WindowRect.Bottom-WindowRect.Top;  
    StretchBlt(bmp.Canvas.Handle,WindowRect.Top,WindowRect.Left,WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top,
    bmp.Canvas.Handle,WindowRect.Top,WindowRect.Left,WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top,SRCCOPY);

    bmp.SaveToFile('E:\Users\Tim\Desktop\1.bmp');
    bmp.Free;

end;

3) В ComboBox2 хранятся все "названия" активных приложений

[Аватар]

Затупил. Deleted

[Человек_Борща]

У вас StrechBlt. а я писал про BitBlt

[Janger]

Сообщение от Человек_Борща

У вас StrechBlt. а я писал про BitBlt

Просто на одном сайте, я прочёл следующее:
=================================== =========
Две функции, которые очень важны для работы с изображениями – это BitBlt и StretchBlt. Обе они служат для копирования растровых изображений, а при помощи функции StretchBlt можно также изменять размер изображения.
=================================== =========

[Janger]

Сообщение от Аватар

Затупил. Deleted

простите, я вас не понял...

[Человек_Борща]

Так надо ещё и своей головой думать Вам надо взять часть изображения, а не взять и обрезать/сжать. Последнее и делает StretchBlt.