Buscar por:

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