Bagaimana cara screen capture untuk active windows tanpa border dan caption? saya udah cari dan menemukan beberapa link untuk screen capture: http://www.bitwisemag.com/copy/delphi/delphi1.html http://delphi.about.com/od/adptips2006/qt/captureactive.htm tapi caption & border formnya masih terbawa juga. Ada satu cara yang saya sudah saya gunakan yaitu Image1.Picture.Bitmap := Fmain.GetFormImage; tapi capturenya lambat dan hasilnya melenceng (jika kita pakai component raize misalnya) Mohon pencerahan...

Saya menggunakan kode yang terdapat pada artikel bitwisemag untuk meng-capture jendela yang aktif tanpa caption dan border, dan tidak ada masalah.

procedure TForm1.Button1Click(Sender: TObject);
var
  DestRect, SourceRect: TRect;
  h: THandle;
  hdcSrc : THandle;
begin
  h := GetForeGroundWindow;
  if h <> 0 then
  begin
    try
      hdcSrc := GetDC(h); // use this for ClientRect
      Windows.GetClientRect(h,SourceRect);
      Image1.Picture.Bitmap.Width  := SourceRect.Right - SourceRect.Left;
      Image1.Picture.Bitmap.Height := SourceRect.Bottom - SourceRect.Top;
      DestRect := Rect(0, 0, SourceRect.Right - SourceRect.Left,
                       SourceRect.Bottom - SourceRect.Top);
      StretchBlt(Image1.Picture.Bitmap.Canvas.Handle,
                 0, 0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height, hdcSrc,
                 0, 0, SourceRect.Right - SourceRect.Left, SourceRect.Bottom - SourceRect.Top,
                 SRCCOPY)
    finally
      ReleaseDC(0, hdcSrc);
    end;
  end;
end;

sekedar memperjelas baris kode no 8 // if h &lt;&gt; 0 then operator &lt;&gt; maksudnya adalah <> Tag highlighternya suka mengubah2 operator Delphi...

@TBawor: yup betul sekali...