نکات برنامه نویسی در دلفی

[Ehsansh]

procedure TForm1.Button1Click(Sender: TObject);

var DCWindow: HDC;

  bmp: TBitmap;

begin

  bmp := TBitmap.Create;

  bmp.Height := Form1.Height;

  bmp.Width := Form1.Width;

  DCWindow := GetWindowDC(Form1.Handle);

  BitBlt(bmp.Canvas.Handle, 0, 0, Form1.Width, Form1.Height,

         DCWindow, 0, 0, SRCCOPY);

  bmp.SaveToFile('C:\ScreenShot.bmp');

  ReleaseDC(DCWindow, DCWindow);

  bmp.Free;

end;

اندکی ویرایش
mzjahromi