Скопировать изображения экрана

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
var
  dc: hDC;
begin
  dc := GetDC(0);
  BitBlt(Form1.Canvas.Handle, 0, 0,
    Form1.ClientWidth, Form1.ClientHeight, dc,
    0, 0, SRCCOPY);
  ReleaseDc(0, dc);
end;