[AND_REY]

Простой примерчик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 bmp: TBitmap;
 DC: HDC;
begin
 DC:= GetDC(0);
 bmp:= TBitmap.Create;
 bmp.Height:= Screen.Height;
 bmp.Width:= Screen.Width;
 Bitblt(bmp.Canvas.Handle, 0, 0,Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
 bmp.SaveToFile('C:\SCREENSHOT.bmp');
 bmp.Free;
 ReleaseDC(0, DC);
end;