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.697 ]

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

Clonezilla - Servidor de imagens (Parte II)

Instalando o Gnome-2.20.3 no Slackware 12 usando o Gslapt

Estratégias de backup e ferramentas livres

FreeRADIUS - Conceitos Básicos - Parte II

Formatando fontes no openoffice

Leitura recomendada

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

Cross-compile Lazarus: Gerando executáveis Win32 estando no Linux

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

Colocando aplicação Kylix no TrayIcon do KDE

Criando aplicação para detectar informações do sistema em Kylix

  
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