Buscar

Jeito fácil de criar atalhos de internet

Código

Aqui neste site existe um artigo que ensina a criar atalhos de internet com arquivos INI, etc, mas é um método muito complicado então eu descobri este modo de criar:

primeiro coloque um memo e apague sua propriedade lines.

Depois coloque um edit com a propriedade text 'http://'.

Depois coloque dois botões :
Criar Atalho;
Salvar;

Por ultimo um SaveDialog da paleta Dialogs

Deixe o memo com a propriedade visible false;


No botão "criar atalho" coloque:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add('[InternetShortcut]');
memo1.Lines.Add('URL='+labelededit1.Text);
end;

e no botão "Salvar" coloque:

procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName);
end;

quando executar a aplicação no save dialog coloque o nome do atalho mais .url e pronto!!

o atalho foi criado
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 31/01/10
Por: Matheus
Visualizada: 3910 vezes

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