火
火凤凰
Unregistered / Unconfirmed
GUEST, unregistred user!
讨论一下:
用以下语句实现的效果,和上面提供的基本一样
难道所谓directx下抓屏就是这样?我怎么看都觉得好象是普通抓屏,在directX下显示,
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var
SourceDC:integer;
mPos:TPoint;
begin
GetCursorPos(mPos);
//SourceDC:=CreateDC('DISPLAY','','',nil);
SourceDC:=GetDc(0);
BitBlt(Form1.Canvas.Handle,
0, 0,
400, 300,
SourceDC,
mPos.x , mPos.y,
SRCCOPY);
end;
用以下语句实现的效果,和上面提供的基本一样
难道所谓directx下抓屏就是这样?我怎么看都觉得好象是普通抓屏,在directX下显示,
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var
SourceDC:integer;
mPos:TPoint;
begin
GetCursorPos(mPos);
//SourceDC:=CreateDC('DISPLAY','','',nil);
SourceDC:=GetDc(0);
BitBlt(Form1.Canvas.Handle,
0, 0,
400, 300,
SourceDC,
mPos.x , mPos.y,
SRCCOPY);
end;