Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 16 de outubro de 2013

DELPHI - Printscreen / Alt+PrintScreen Direto do botão - Direct Button

Reações: 


//DELPHI - Printscreen / Alt+PrintScreen Direto do botão -  Direct Button
  procedure PrintScreen(Frm : TForm; bm: TBitMap);
  var
    Bm2 : TBitmap;
  begin
    Clipboard.Clear;
    repeat
      Application.ProcessMessages;
      keybd_event(VK_SNAPSHOT, 0, 0, 0);
    until Clipboard.HasFormat(CF_BITMAP);
    bm.Assign(Clipboard);
    bm2 := TBitmap.Create;
    try
      bm2.Width  := Frm.Width; // Para pegar da tela cheia, mude o tamaho do bitmap
      bm2.Height := Frm.Height;
      BitBlt(bm2.Canvas.Handle,
             0,                 // X : Integer
             0,                 // y : Integer
             Frm.Width,         // Width : Integer // e a area de corte para a captura
             Frm.Height,        // Height : Integer
             bm.Canvas.Handle,  // SrcDC : HDC
             Frm.Left,          // XSrc : Integer
             Frm.top,           // YSrc : Integer
             SRCCOPY);          // Rop : Cardinal
    finally
      bm.Assign(Bm2);
      bm2.Free;
    end;
  end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer