Koodit: Pascal: Ruutukaappaus

program Ruutukaappaus;

uses
  Windows,
  Graphics,
  Forms,
  Classes;

var
 Canvas: TCanvas;
 Kuva: TBitmap;
begin
 // Luodaan TCanvas objekti
 Canvas := TCanvas.Create;

 // Kytketään kahva työpöytään
 Canvas.Handle := GetDC( 0 );

 // Luodaan TBitmap objekti
 Kuva := TBitmap.Create;

 // Asetetaan kuvan koko
 Kuva.Width := Screen.Width;
 Kuva.Height := Screen.Height;

 // Kopioidaan työpöytä Kuva-objektiin
 Kuva.Canvas.CopyRect( RECT( 0,0,Screen.Width,Screen.Height ), Canvas, RECT( 0,0,Screen.Width,Screen.Height ) );

 // Vapautetaan työpöydän kahva
 ReleaseDC( 0, Canvas.Handle );

 // Vapautetaan Canvas
 Canvas.Free;

 // Tallennetaa Kuva
 Kuva.SaveToFile( 'ruutu.bmp' );

 // Vapautetaan Kuva
 Kuva.Free;
end.