Скриншот экрана

[dradysman]

Здраствуйте.
Мне нужно сделать скриншот монитора и сохранить его в папку например (c:/scrin.bmp). Тк скриншот стоит на таймере, при каждым скрином должен создоваться новый файл (c:/scrin1.bmp, scrin2.bmp....) Я видел такие исходники в сети, но у мня постоянно вылазиет ошибка. Буду очень благодарен если представите исходник. Спасибо.

[SERG1980]

implementation

{$R *.dfm}
var i:integer=1;
procedure GetRS(RS:TBitmap;Path:String);
 var c:TCanvas;
     r:Trect;
begin
 c:=TCanvas.Create;
 c.Handle:=getWindowDC(GetDesktopWindow);
 try
 r:=Rect(0,0,screen.Width,screen.Height);
 RS.Width:=screen.Width;
 RS.Height:=screen.Height;
 RS.Canvas.CopyRect(r,c,r);
 RS.SaveToFile(Path);
 finally
 ReleaseDC(0,c.Handle);
 c.Free;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var b:TBitmap;
begin
 b:=TBitmap.Create;
 GetRS(b,'d:\'+inttostr(i)+'.bmp');
 b.Free;
 inc(i);
end;

[dradysman]

SERG1980 большое спасибо.