1:
2:
3:

  bm.Canvas.CopyRect(sr,cnv,sr);
  km.Canvas.StretchDraw(kr, bm);
  km.savetofile(datei);					

1:
2:
3:
4:
5:

bm.Canvas.CopyRect(sr,cnv,sr); 
Application.processmessages
km.Canvas.StretchDraw(kr, bm); 
Application.processmessages
km.savetofile(datei);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure ScreenCapture(Bmp: TBitmap);
var
  DeskWnd: HWnd;
  DeskDC: HDC;
  DeskCv: TCanvas;
  R: TRect;
  W, H: Integer;
begin
  if Bmp = nil then Exit;
  DeskWnd := GetDesktopWindow;
  DeskDC := GetWindowDC(DeskWnd);
  DeskCv := TCanvas.Create;
  DeskCv.Handle := DeskDC;
  W := Screen.Width;
  H := Screen.Height;
  R := Bounds(0, 0, W, H);
  try
    Bmp.HandleType := bmDIB;
    Bmp.PixelFormat := pf24Bit;
    Bmp.Width := W;
    Bmp.Height := H;
    Bmp.Canvas.CopyMode := cmSrcCopy;
    Bmp.Canvas.CopyRect(R, DeskCv, R);
  finally
    DeskCv.Free;
    ReleaseDC(DeskWnd, DeskDC);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
self.Image1.Picture.Bitmap:=TBitmap.Create;
ScreenCapture(self.Image1.Picture.Bitmap);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var bmpCapture:TBITMAP;
    DesktopDC:CARDINAL;
begin
  DesktopDC:=getWindowDC(0); //0 ist das Handle des SCREEN
  bmpCapture:=TBitmap.Create;
  bmpCapture.Width:=screen.Width;
  bmpCapture.Height:=screen.Height;
  bmpCapture.PixelFormat:=pf32bit;
  Bitblt(bmpCapture.canvas.handle,0,0,screen.width,screen.height,DesktopDC,0,0,SRCCOPY);
  form1.Canvas.Draw(0,0,bmpCapture);
end;