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

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

Mencoder ripando DVD para DIVX

USB-ZIP - Emulando Zip Drive em Pendrive

Relato I Fórum da Revista Espírito Livre

XL - Ferramenta de gerenciamento Xen - Parte II

Multiterminais e Userful Multiplier nas escolas públicas: Uma solução barata que sai caro

Leitura recomendada

Colocando aplicação Kylix no TrayIcon do KDE

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

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

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

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

  
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




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts