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.
Aprendendo a modelar forms no Kylix
Versão para impressora
Indicar para um amigo
Enviar artigo