1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TWindowsControl.FormularScreenShot(Bmp: TBitmap; h : hWnd): Boolean;
var
  Rec: TRect;
  iWidth, iHeight: Integer;
begin
  with Bmp do try
    GetWindowRect(h, Rec);

    iWidth  := Rec.Right - Rec.Left;
    iHeight := Rec.Bottom - Rec.Top;

    Width := iWidth;
    Height := iHeight;

    BitBlt(Canvas.Handle, 0, 0, iWidth, iHeight, GetWindowDC(h), 0, 0, SRCCOPY);

    Result := True;
  finally
    ReleaseDC(h, GetWindowDC(h));
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure NewSize(const BMP: TBitmap; const Width, Height: Integer);
var
  Neu: TBitmap;
  AltPXF: TPixelFormat;
begin
  Neu := TBitmap.Create;
  try
    Neu.Width  := Width;
    Neu.Height := Height;
    Neu.PixelFormat := pf24bit;

    AltPXF := BMP.PixelFormat;
    BMP.PixelFormat := pf24bit;

    ResampleBilinear(BMP, Neu);
    BMP.Assign(Neu);
    BMP.PixelFormat := AltPXF;
  finally
    Neu.Free;
  end;
end;