Capturando seu desktop com uma aplicação feita em kylix

Neste artigo vou ensinar como fazer um programa em kylix que captura a imagem do seu desktop para você poder enviar seus screenshots para o Viva o Linux.

[ Hits: 7.864 ]

Por: Perfil removido em 24/01/2004


Introdução



Bom amigos, nesse artigo vou ensinar como criar uma aplicação em kylix capaz de capturar a imagem do desktop.

Primeiramente vamos criar uma nova nova aplicação e em seguida criar um botão (Bitbtn) com o caption nomeado como "Capturar".

Após isso, vamos criar uma SaveDialog para que possamos salvar a imagem capturada em um disquete.

Feito isso vamos dar um duplo clique no botão e programar:

{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
var

  Bitmap : TBitmap;
  FormID : Cardinal;

begin

// esse comando tem a função de ocultar a aplicação para
// que sua imagem não seja capturada, junto com o desktop

Hide;

// processa as mensagens
  Application.ProcessMessages;

// gera um arquivo bitmap para guardar a imagem no HD
  Bitmap := TBitmap.Create;
  try
// pega o número de identificação da janela da área de trabalho
    FormID := QWidget_winId(QApplication_Desktop);

// captura  a área de trabalho para a imagem bitmap
    QPixmap_grabWindow(Bitmap.Handle,FormID,0,0,-1,-1);

// mostra novamente a janela
    Show;

// salva o bitmap
    if SaveDialog1.Execute then
      Bitmap.SaveToFile(SaveDialog1.FileName);
  finally
    Bitmap.Free;
  end;                      
end;

end.

Antes de executar sua aplicação, vamos para as "uses" no qual iremos declarar o uso da API Qt, no qual é diretamente responsável por habilitar a captura do desktop. A programação ficará assim:

interface

uses
    SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, Qt;

Feito isso é só executar e sair fotografando o desktop do seu sistema operacional. Essa aplicação é muito interessante para quem quiser fazer um sistema de tutorial.

============================
Viva a liberdade dos códigos
============================

Abraços!
Master_Foca.

   

Páginas do artigo
   1. Introdução
Outros artigos deste autor

Por que a interface Unity é melhor que as interfaces do Windows 7 e MacOS X

Configurando o aMSN para Lan House e/ou Cyber Café

Aventuras do Mint Linux 10 em um computador antigo

Fazendo particionamento avançado no Debian

Aplicações em 32 bits para seu Ubuntu 64 bits (Feisty Fawn)

Leitura recomendada

Integrando saídas de comandos shell com sua aplicação Kylix

Aprendendo a modelar forms no Kylix

Como fazer seu programa Kylix chamar uma aplicação externa

Criando uma aplicação que mostra os processos em execução

TCollection e Generics no Free Pascal - Uma breve visão sobre lista de objetos com o Lazarus

  
Comentários
[1] Comentário enviado por andersonbambam em 07/10/2005 - 13:22h

como enviar meu screenshot para o site?


Contribuir com comentário