Screenshot erzeugen und drucken

[sr1]

Hallo Leute,

ich hoffe, Ihr könnt mir helfen, bin Newbie:

a) wie kann ich einen screenshot erzeugen und, was noch wichtiger ist,
b) diesen ausdrucken bzw. an den Drucker schicken.

Wäre euch für Codeschnipsel sehr dankbar.

Schonmal vielen Dank für Eure Mühe !!! :thumb:

[Knotti2005]

Von was willst du einen screenshot machen nur von deinem Projekt oder von kompletten desktop oder...

[sr1]

Zitat:

Zitat von Knotti2005

Von was willst du einen screenshot machen nur von deinem Projekt oder von kompletten desktop oder...

hi knotti,

vom kompletten desktop...

[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;

[sr1]

Zitat:

Zitat von 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;

vielen Dank dafür, aber wie sende ich den screenshot zum drucker???

[faux]

Hallo!

Vielleicht hilft dir http://www.dsdt.info/tipps/?id=347 weiter.

Grüße
Faux