Buscar

Desenvolvendo um programinha para criar atalhos da internet (.url) de uma forma objetiva e fá

nome

Kennedy Tedesco Parreira

Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.

Introdução  

Olá mestres, pessoal hoje iremos aprender como criar Atalhos da Internet (.URL) através de sua aplicação no delphi.


Como todos sabem um Atalho no Windows aponta para uma (Aplicação, pasta, arquivo) e já os Atalhos da Internet apontam uma URL.

Você já parou para observar os Favoritos da Internet ? então os Favoritos do Internet Explorer tal como os Links também, são Atalhos da internet. Você já viu em algum site algo desse tipo: "Clique aqui para Adicionar o site a Favoritos" então, quando clicado o Internet Explorer cria automaticamente um Atalho da Internet referente ao site.


A figura abaixo mostrará a pasta Favoritos do Internet Explorer do meu computador, e você verá alguns Atalhos da Internet.


PRÉ-REQUISITOS  

Entender o básico do básico de arquivos INI ou Registro do Windows, para que se tenha uma melhor noção de como funciona o programa.

Entendo como Funciona um arquivo .URL

Quando criamos um Atalho da Internet, é como se fosse criarmos um arquivo INI (Arquivos INI são arquivos de texto que servem para guardar informações), e atalhos da internet são bem parecidos com arquivos INI, é um arquivo de texto que contém informações, vejamos abaixo como é a estrutura de um Atalho da Internet.

Os dados que são Escritos dentro de arquivo .URL tem a seguinte semelhança:
 

[InternetShortcut]
URL=http://www.planetadelphi.com.br

É como se fosse um arquivo .INI, nós temos uma chave especificando que este atalho é da internet e a especificação da URL. Quando esse arquivo é acessado o windows automaticamente o lê e decifra que ele é um Atalho da Internet, então automaticamente ele pega o valor da chave URL e joga no navegador padrão.
 

Criando um Atalho da Internet usando o Bloco de Notas

Bom pessoal, para que vocês entendam melhor como é um Atalho da Internet, Façam o seguinte:

  • Abram o Bloco de Notas: Menu Iniciar >> Programas >> Acessórios >> Bloco de Notas.

  • Depois de aberto digite o seguinte:

[InternetShortcut]
URL=http://www.terra.com.br

Pronto, nós criamos o "esqueleto" de um Atalho da Internet, agora iremos salvar, para isso vá até o menu arquivo e clique em Salvar Como, selecione para salvar no desktop, e o nome do arquivo para: terra.url

Pronto pessoal, criamos um atalho da internet para o site Terra, de uma forma fácil, só que mais fácil ainda é fazendo um programinha que crie automaticamente para nós.
 

"Novo Atalho da Internet" (.URL)

Você pode facilmente criar uma atalho da internet programando,basta saber a URL do site que você quiser criar, por isso nós criaremos um programinha que criará Atalhos da Internet, de uma forma muito simples e fácil.

 

Criando a Aplicação

Inserindo os Componentes a serem Usados

  • Insira os seguintes componentes, como nos mostra a figura abaixo:


 

Funções e Procedimentos

  • Declare a seguinte a função:

uses IniFiles, ShlObj;

//Pega o endereço do Desktop Ex: C:\windows\desktop ...
function DesktopDir: string;
var
  DesktopPidl: PItemIDList;
  DesktopPath: array [0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, DesktopPidl);
  SHGetPathFromIDList(DesktopPidl, DesktopPath);
  Result := IncludeTrailingPathDelimiter(DesktopPath);
end;
 

Agora iremos declarar o procedimento para a criação do Atalho:
 


procedure CriarAtalhoDaNet(const NomeDoArquivo, URL : string);
begin
//Pega o Diretório do Desktop Depois ele faz uma junção com o nome do //arquivo e finalmente coloca a extensão, que é .URL
  with TIniFile.Create(DesktopDir+NomeDoArquivo+'.url') do
  try
//Escrevendo os dados dentro do Arquivo .URL
    WriteString('InternetShortcut','URL',URL);
  finally
    Free;
  end;
end;
Esse procedimento fará o Seguinte, ele criará um novo Atalho .URL, basta nós
preenchermos os Edits que inserimos, o Edit Nome do Arquivo, ou seja o nome
que ele salvará, e a URL, que neste caso é a URL desse novo Atalho.
Insira o seguinte Código no evento Onlick do Button1
CriarAtalhoDaNet(Edit1.Text,Edit2.text);
Ou seja, é mesma que coisa que isso:
CriarAtalho(NOME DO ATALHO, URL DO ATALHO);


Agora Rode sua aplicação, vamos fazer um teste, coloque os seguintes dados abaixo e clique no botão: Criar Atalho

Agora vá até o desktop (Área de Trabalho) e veja que ele criou um
atalho com os dados acima. Se você clicar duas vezes neste atalho ele
abrirá o site do Planeta Delphi com seu navegador Padrão.

Estrutura do Arquivo .URL Criado

Bom pessoal, esse arquivo que nós criamos com o nome de Planeta Delphi,
e com a URL do Planeta Delphi, tem uma estrutura muito simples, um arquivo
.URL de atalho da internet é muito fácil para ser elaborado, por isso usamos
aquele procedimento, onde ele colocará dentro do arquivo uma especificação
falando que tipo é esse arquivo que neste caso ele coloca [InternetShortcut]
ou seja Atalho da Internet e depois a URL a ser executada.
[InternetShortcut]
URL=http://www.planetadelphi.com.br

Especificando o Ícone do Atalho

Pessoal, colocando ícone no Atalho é opcional, se vocês
quiserem podem fazer.
Podemos especificar um ícone para um Atalho da Internet, mas para isso
precisamos especificar um Executável que contenha ícones e o índice do Ícone
outra coisa que teremos que fazer é trocar o procedimento CriarAtalhoDaNet
para:
procedure CriarAtalhoDaNet(const NomeDoArquivo, URL : string);
begin
//Pega o Diretório do Desktop Depois ele faz uma junção com o nome do arquivo e finalmente coloca a extensão, que é .URL
with TIniFile.Create(DesktopDir+NomeDoArquivo+'.url') do
try
//Escrevendo a URL do Atalho
WriteString('InternetShortcut','URL',URL);

//Extraindo Ícone de um Executável, neste caso do EXE do Internet Explorer
WriteString('InternetShortcut','IconFile',
'C:\Arquivos de programas\Internet Explorer\iexplore.exe');

//Colocando o ìndice do ícone, porque o executavel possui mais de um Ícone
//Você pode alterar o valor para 1,3,4 ...

WriteString('InternetShortcut','IconIndex','9');
finally
Free;
end;
end;
Bom pessoal, trocar o ícone do Atalho é mais uma questão Visual, se não
quiserem é só ignorar essa parte "Especificando o Ícone do Atalho".
No Índice do Ícone, nós especificamos 9, se quiser alterar podem alterar, agora
façam um teste e vejam a aparência do nosso Atalho.

Código Fonte do Artigo

Considerações Finais

Bom mestres, espero que este artigo tenha ajudado a você programador a
praticar mais seus conhecimentos de uma forma clara, o Artigo não tem por
método ensinar o programador a trabalhar com Arquivos INI, mas se
precisarem é só postar pedindo que eu crio um artigo sobre Arquivos INI.
Qualquer dica ou crítica postem nos comentários.
Abração a Todos !!!!
Atenciosamente,
Kennedy Tedesco P. Moderador de Conteúdo (www.planetaDelphi.com.br). Email: Kennedy@delphi.eti.br

Publicidade

Vote no artigo




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes do artigo

Categoria: Outros
Adicionado dia: 31/07/06
Por: Kennedy Tedesco Parreira
Visualizado: 34904 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009