[NekitoSSSS]

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

Код:

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

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 подсунул свой хендл. все отлично обновляет, спасибо, плюсанул обоим =)