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

[Janger]

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

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

Ага. Как вы говорите, вроде что то получается. Но он как то странно скриншотит форму, чем ближе к Левому Верхнему Углу, тем точнее и лучше у него выходит.
Когда я программу, спускаю в правый нижний угол, то опять выдаёт белый скрин...

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

Значит не правильно задаете координаты области экрана.

[Janger]

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

Значит не правильно задаете координаты области экрана.

да, я тоже думаю что в этом проблема...
Ладно, я наверное спать лягу, а завтра уже разберусь с проблемой.
Спасибо большое, за помощь в написании кода

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

А правильно будет так:

procedure TForm2.Button1Click(Sender: TObject);
var
  h: THandle;
  wr: TRect;
  bmp: TBitMap;
  hwDC: HDC;
begin
  h := findwindow(PChar('OperaWindowClass'), nil);
  if h <> 0 then
  begin
    GetWindowRect(h, wr);
    hwDC := GetWindowDC(h); //Получим DC окна, откуда будет браться изображение
    bmp := TBitMap.Create;
    bmp.Width := wr.Width; //Установим высоту и ширину битмапа
    bmp.Height := wr.Height;
    SetForegroundWindow(h); //Отправим на 1й план наше окно.
   //Скопируем DC окна в наш canvas
    BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, hwDC, 0, 0, SRCCOPY);

    bmp.SaveToFile('D:\1.bmp');
    bmp.Free;
    ReleaseDC(h, hwDC); //Освободим DC
  end;
end;

P.S. Про DC совсем забыл сказать во 2м посте.