ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
bmp: TBitmap;
 DC: HDC;
h:hwnd;

begin
 bmp:=TBitmap.Create;

 bmp.Height:=Screen.Height;//задаю размер
 bmp.Width:=Screen.Width;
//GetForegroundWindow; //типа получить активное окно, наверно не нужно здесь
 DC:=GetDC(h);   //подставляю хэндл
 bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,          //////////////
       DC, 0, 0, SRCCOPY);
 bmp.SaveToFile('Screen.bmp');

 ReleaseDC(0, DC);
end;

 DC:=GetDC(h);

 DC:=GetDC(0);

procedure CaptureActiveWindow(_Bimap: TBitMap);
 var
   Im: TCanvas;
   _scRect, _winRect: TRect;
   hw: THandle;
 begin
  Im := TCanvas.Create;
   Im.Handle := GetWindowDC(GetDesktopWindow);
   hw := GetForeGroundWindow;
   if hw <> 0 then
     GetWindowRect(hw, _winRect);
   try
     _scRect := Rect(0, 0, _winRect.Right - _winRect.Left, _winRect.Bottom - _winRect.Top);
    _Bimap.Width  :=_winRect.Right - _winRect.Left;
    _Bimap.Height := _winRect.Bottom -_winRect.Top;
     _Bimap.Canvas.CopyRect(_scRect, Im, _winRect);
   finally
     ReleaseDC(0, Im.Handle);
     Im.Free;
   end;
 end;

//заюзаем
procedure TForm1.Button1Click(Sender: TObject);
var
 _Bmp:TBitmap;
begin
 Sleep(500);
 _Bmp:=TBitmap.Create;
 CaptureActiveWindow(_Bmp);
 _Bmp.SaveToFile('c:\pic.bmp');
 _Bmp.Free;
end;