我有代码,它接收在服务器端之前已经定义的特定区域,并在客户端的Form上创建一个孔.而不是这样,我想要得到这个相同区域的屏幕截图,但是没有出现我的Form在最终的结果,像一个正常的桌面捕获,但在这种情况下只会被捕获,这个小区域.
那么,我可以如何调整我的这个代码呢？
- procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
- var
- X1,X2,Y1,Y2: Integer;
- List: TStrings;
- FormRegion,HoleRegion: HRGN;
- StrCommand: String;
- begin
- StrCommand := Socket.ReceiveText;
- if Pos('§',StrCommand) > 0 then
- begin
- List := TStringList.Create;
- try
- FormRegion := CreateRectRgn(0,Form12.Width,Form12.Height);
- ExtractStrings(['§'],[],PChar(StrCommand),List);
- X1 := StrToIntDef(List[0],0) - Form12.Left - 2;
- Y1 := StrToIntDef(List[1],0) - Form12.Top - 2;
- X2 := StrToIntDef(List[2],0) - Form12.Left - 2;
- Y2 := StrToIntDef(List[3],0) - Form12.Top - 2;
- HoleRegion := CreateRectRgn(X1,Y2);
- CombineRgn(FormRegion,FormRegion,HoleRegion,RGN_DIFF);
- SetWindowRgn(Form12.Handle,True);
- finally
- List.Free;
- end;
- end;
- end;