Обработка скриншота чужого окна.

[Ice-Breaker]

Всем привет.

Такой вопрос.
Имеется функция, которая делает скриншот нужного мне окна (чужого), а я дальше уже с этим битмапом работаю отдельно.

Сама функция:

function CreateSnapshot ( WindowHD : HWND):HBitmap;
var
  rcSrc:Trect;
  hDC1:HDC;
  hSrcDC:HDC;
  hBmp:HBITMAP ;
begin
  GetWindowRect(WindowHD, rcSrc);
  hDC1:= GetDC(WindowHD);
  hSrcDC:=CreateCompatibleDC(hDC1);
  hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top);
  SelectObject(hSrcDC, hBmp);
  PrintWindow(WindowHD, hSrcDC, 0);
  Result:=hBmp;
end;

И вот проблема, я не как не могу обойтись, без сохранения в файл этого скриншота.
Т.е. вот так не работает:

var wnd: hwnd;
    TempBitmap:TBitmap;
………………

TempBitmap.Handle:=CreateSnapshot(wnd);

// дальше обработка ну или как пример в имэйдж загрузить, НО ТУТ ничего не происходит

Form1.Image1.Picture.Graphic:=nil;
Form1.Image1.Picture.Bitmap:=TempBitmap;

А вот если добавить сохранение и выгрузку из файла, то всё работает

TempBitmap.Handle:=CreateSnapshot(wnd);
TempBitmap.SaveToFile('C:\1.bmp');
TempBitmap.LoadFromFile('C:\1.bmp');

// дальше обработка идёт нормально, как и задумывалось

Form1.Image1.Picture.Graphic:=nil;
Form1.Image1.Picture.Bitmap:=TempBitmap;

Как обойтись без сохранения в файл?

И вот ещё вопрос к этому всему.

Если в Windows 7, включить в «Персонализации» - «Классическую упрощённую схему», то скриншоты вообще перестают делаться, функция возвращает чёрный квадрат.
Можно от этого избавиться, а вернее есть какое-нибудь решение?

[min@y™]

8.png

[Ice-Breaker]

Сообщение от min@y™

Вложение 88111

Спасибо.
Поставил себе этот компонент, всё заработало без каких-либо файлов.
Правда качество картинки немного изменилось, пришлось переделывать обработчик, но это не страшно.

А вот в классическом режиме, также имеются проблемы. Скрин получается, только если нужное мне окно нечем не закрыто, а иначе скринится та часть окна (под размер нужного), которая на переднем плане.

[Sciv]

Сообщение от Ice-Breaker

а иначе скринится та часть окна (под размер нужного), которая на переднем плане

Ну на приведённом min@y™ скриншоте несколько функций ScreenShot, попробуйте другие использовать. Не ту, в которой выбирается область скрина, а где задаётся объект.