Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Дек

Как сделать скрин активной программы

Posted by Chas under Delphi

Мне необходимо сделать скрин активного окна.

DeskTop: TCanvas;

  H: THandle;

  DC : HDC;

  bmp : TBitmap;

  wp:WINDOWPLACEMENT;

  x,y,we,he: integer;

begin

  Edit1.Text := memo1.Lines.Strings[0];

  Label1.Caption := Memo1.Lines.Strings[0];
  if pos('/', edit1.Text) <> 0 then  begin
            GetWindowPlacement(GetForegroundWindow,wp);

            x:=wp.rcNormalPosition.Left;

            y:=wp.rcNormalPosition.Top;

            we:=wp.rcNormalPosition.Right-x;

            he:=wp.rcNormalPosition.Bottom-y;
          bmp := TBitmap.Create;
          bmp.Height := he;

          bmp.Width := we;

          DC := GetDC(0);

          bitblt(bmp.Canvas.Handle, y, x, we, he, DC, 0, 0, SRCCOPY);

          ReleaseDC(0, DC);

          bmp.SaveToFile('D:/' + IntToStr(i) + '.bmp');

          i := i + 1;
          bmp.Free;

  end;

end;