Screenshot erzeugen und drucken

[sniper_w]

Screenshoot erzeugen :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled := True;
   Visible := false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var dc:THandle;
      temp:tbitmap;
begin
   dc := getdc( getdesktopwindow() );
   temp := tbitmap.Create;
   temp.Width := screen.Width;
   temp.Height := screen.Height;
   temp.PixelFormat := pf24bit;
   bitblt( temp.Canvas.Handle, 0, 0, temp.Width, temp.Height, dc, 0,0, SRCCOPY );
   temp.SaveToFile(edit1.Text);
   temp.Free;
   releasedc( 0, dc );
   Timer1.Enabled := False;
   Visible := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval := 200;
end;