[NekitoSSSS]

GriLab, то что надо. использовал

Код:

procedure ScreenShot(Bild: TBitMap);
var
  c: tcanvas;
  r: TRect;
begin
  c := tcanvas.Create;
  c.Handle := GetWindowDC(whandl);
  try
    GetWindowRect(whandl,r);
    r.Right:=r.Right-r.Left;
    r.Bottom:=r.Bottom-r.Top;
    r.Left:=0;
    r.Top:=0;
//    r := Rect(0, 0, Screen.Width, Screen.Height);
    Bild.Width := r.Right;
    Bild.Height := r.Bottom;
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;;

только вместо GetDesktopWindow подсунул свой хендл. все отлично обновляет, спасибо, плюсанул обоим =)