PrintScreen активной формы

[Dj_smart]

Вот процедура скриншотанья (Фоткает и схораняет в файл):

Procedure shot(dir:string);
var
  DC: HDC;
  Canva: TCanvas;
  mou:Tpoint;
  B: TBitmap;
begin
  Canva := TCanvas.Create;
  B := TBitmap.Create;
  DC := GetDC(0);
  try
    Canva.Handle := DC;
    with Screen do
    begin
      B.Width := Width;
      B.Height := Height;
      B.Canvas.CopyRect(Rect(0, 0, Width, Height),
      Canva, Rect(0, 0, Width, Height));;
      B.SaveToFile(dir);
    end
  finally
    ReleaseDC(0, DC);
    B.Free;
    Canva.Free
  end
end;

Но дело в том, что оно shot'ит весь экран.
Люди, подскажите, как shot'ать только активную форму?

Полагаю одно: вместо with Screen надо with Активная_форма

[Stilet]

Вместо DC := GetDC(0);
пиши DC := GetDC(GetForegroundWindow);

[Dj_smart]

Большое СПС! Если бы мог, поставил бы +

Блин, облом, оно так неправильно чёто фоткает

[B_N]

http://programmersforum.ru/showthread.php?t=14666