delphi 怎样抓取部分屏幕

来源：百度知道 编辑：UC知道 时间：2024/05/24 17:30:47
delphi 怎样抓取部分屏幕，抓取的对象在窗口外，像QQ上截图一样，请详细点，谢谢大侠们。
已经取屏幕成功了，非常感谢，看的出来你是个高手，能不能再请教个问题，就是能不能把它做得像QQ截图一样，截的图是哪部分、大小多少用鼠标控制；也就是取屏幕上鼠标的按下坐标和抬起坐标（不一定在delphi窗口上）。谢谢！

有没有人知道啊，谢谢各位大侠了！

procedure TForm1.Button1Click(Sender: TObject);
var
C:TCanvas;
B:TBitmap;
begin
B :=TBitmap.Create;
C :=TCanvas.Create;
try
// 设置Bitmap的大小
B.Width := Screen.Width;
B.Height := Screen.Height;

// 取屏幕的设备上下文句柄并拷贝
C.Handle:=GetDC(0);
B.Canvas.CopyRect(Rect(0,0,screen.Width,Screen.Height),
C,Rect(0,0,screen.Width,Screen.Height));
B.SaveToFile('d:\test.bmp');
MessageBeep(1);
finally
ReleaseDC(0,C.Handle);
B.Free;
C.Free;
end;
end;