Tenho um sisteminha que roda escondido em algumas máquinas....e a função dele é capturar a tela de 10 em 10 minutos e salvar no formato jpg...até ai tudo bem...ele captura...o poblema é que se o usuário estiver jogando, o sistema captura uma tela toda em branco.....O sistema é em Delphi 7 e a função que uso está a seguir:
var
aBitmap : TBitMap;
Canvas : TCanvas;
aJPG : TJPegImage;
begin
aBitmap := TBitMap.Create;
Canvas := Tcanvas.Create;
aJPG := TJpegImage.Create;
aJPG.ProgressiveEncoding := True;
//aJPG.Grayscale := True; //se for escala de cinza
Pergunta
maikel
Boa Tarde....
Tenho um sisteminha que roda escondido em algumas máquinas....e a função dele é capturar a tela de 10 em 10 minutos e salvar no formato jpg...até ai tudo bem...ele captura...o poblema é que se o usuário estiver jogando, o sistema captura uma tela toda em branco.....O sistema é em Delphi 7 e a função que uso está a seguir:
var
aBitmap : TBitMap;
Canvas : TCanvas;
aJPG : TJPegImage;
begin
aBitmap := TBitMap.Create;
Canvas := Tcanvas.Create;
aJPG := TJpegImage.Create;
aJPG.ProgressiveEncoding := True;
//aJPG.Grayscale := True; //se for escala de cinza
aJPG.CompressionQuality := 84; //compressão JPG
try
Canvas.Handle := GetDC(0);
aBitMap.Width := Screen.Width;
aBitMap.Height := Screen.Height;
aBitMap.Canvas.CopyRect(Canvas.ClipRect,Canvas,Canvas.ClipRect);
aJPG.Assign(aBitMap);
aJPG.SaveToFile(aFileName);
finally
ReleaseDc(0,Canvas.Handle);
Canvas.Free;
aBitmap.Free;
aJPG.Free;
end;
Alguém sabe porque ele não captura o Desktop quando o usuário estiver jogando.... de que forma o jogo é exibido na tela.....
Se alguém puder ajudar...agradeço....
Att....Maikel
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.