Captura de pantalla en el OnDeactivate

[afxe]

Después de dejarme los ojos buscando información sobre captura de pantallas en el foro me cuentas que esto:

var
  B: TBitmap;
  SrcDC : HDC;
  iLT : Integer;
begin
  iLT := GetSystemMetrics(SM_CYCAPTION);
  B := TBitmap.Create;
  B.Width  := Self.Width;
  B.Height := Self.Height-iLT;
  try
    SrcDC := GetWindowDC(Self.Handle);
    BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, SrcDC, 0, iLT, SRCCOPY);
  finally
    ReleaseDC(Self.Handle, SrcDC);
  end;
  b.SaveToFile ('c:\t.bmp');
  b.Free;
end;

Equivale exactamente a esto:

begin
  GetFormImage.SaveToFile('c:\t.bmp');
end;

y sin el inconveniente de que capture las pantallas superpuestas.... pues eso.... de piedra .

Mil Gracias Seoane, era lo que necesitaba.