核心提示：procedure TForm1.Button1Click(Sender: TObject);var vHdc : HDC; vbitmap : TBitmap; pt : TRect;begin v...
procedure TForm1.Button1Click(Sender: TObject);var
vHdc : HDC;
vbitmap : TBitmap;
pt : TRect;
begin
vHDC := GetDC(0);
GetWindowRect(Edit1.Handle,pt);
vbitmap := TBitmap.Create;
try
vbitmap.Width := Screen.Width;
vbitmap.Height := screen.Height;
BitBlt(vbitmap.Canvas.Handle,pt.Left,pt.Top,Edit1.Width,Edit1.Height,vHdc,pt.Left,pt.top,SRCCOPY);
vbitmap.SaveToFile('c:\tmp.bmp');
finally
ReleaseDC(0,vHdc);
FreeAndNil(vbitmap);
end;
end;
