Capturer l'écran Windows


Pour capturer l'écran Windows, il suffit d'obtenir un DC (Device Context) sur le bureau, en utilisant la procédure suivante :

Capturer l'écran Windows

function GetWinBmp: TBitmap;
var
  DC: HDC;
  Canvas: TCanvas;
  R: TRect;
begin
  // Création du Bitmap
  Result := TBitmap.Create;
  Result.Width := Screen.Width;
  Result.Height := Screen.Height;
  // Récupération du DC
  DC := GetDC(0);
  // Affectation du Canvas
  Canvas := TCanvas.Create;
  Canvas.Handle := DC;
  // Récupération de l'image
  R := Rect(0, 0, Screen.Width, Screen.Height);
  Result.Canvas.CopyRect(R, Canvas, R);
  // Libération du Canvas
  Canvas.Free;
  // Libération du DC
  ReleaseDC(0, DC);
end;



3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.008 Secs