Delphi Jpg Screenshot von einem Fenster

Thema durchsuchen

Ansicht

Themen-Optionen

Jpg Screenshot von einem Fenster

Ein Thema von Neutral General · begonnen am 5. Nov 2005 · letzter Beitrag vom 6. Nov 2005

Vorheriger Beitrag

Nächster Beitrag

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge

Delphi 2005 Personal

Re: Jpg Screenshot von einem Fenster

5. Nov 2005, 20:45

zusammenfalten · markieren

Delphi-Quellcode:

			uses [...] jpeg;

[...]

var

  b1,b2:tbitmap;

  j:tjpegimage;

begin

  b1:=tbitmap.Create;

  b1.width:=fensterbreite;

  b1.height:=fensterbreite;

  b1.canvas.handle:=GetWindowDC(Handle des Fensters, normalerweise form1.handle); // Desktop erfassen

  b2:=tbitmap.create;

  b2.width:=b1.width;

  b2.height:=b1.height;

  b2.Canvas.CopyRect(screen.desktoprect,b.Canvas,screen.desktoprect);

  j:=tjpegimage.create;

  j.assign(b2);

  j.savetofile('C:\Screen.jpg');