скриншот рабочего стола, с обновлением

[leonw]

Здравствуйте можете помочь? делаю скрин рабочего стола.

procedure TForm1.Timer1Timer(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
Jpg: TJpegImage;
Begin
Try
bmp:= TBitmap.Create;
Jpg:= TJpegImage.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
Jpg.Assign(Bmp);
Jpg.SaveToFile('test.jpg');
image1.Picture.Assign(Jpg);
ReleaseDC(0, DC);
finally
Bmp.Free;
jpg.Free;
form1.Image1.Picture:=nil;  не знаю куда ее поставить????
End;
end;

все работает но только есть глюк: первый снимак делает хорошо, а остальные начинают уменьшатся. если ставлю nil то вообще ничго не появляется. как делать обновление???? Спасибо!

[mihali4]

Зачем же убивать картинку ? Почитайте тут (видимо, с поиском у вас затруднения ?)
http://www.programmersforum.ru/showthread.php?t=20284

[leonw]

Да с поиском у меня плохо признаю

InValidateRect(bmp.Handle,nil,true);
InValidateRect(Canvas.Handle,nil,true);
Canvas.FillRect(Canvas.ClipRect);
PatBlt(bmp.Canvas.Handle, 0, 0,Screen.Width, Screen.Width, WHITENESS);

перепробывал: но или вылитает ошибка или ничего не проиходит.
или нарисовать просто прямоугольник:

Canvas.Brush.Color := ClWhite;
Canvas.FillRect(Canvas.ClipRect);

дак это не хорошо получится
остановился я над этим

PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);

как считаете можно таким образом или лучше другой?