Segue um exemplo que achei para criar um atalho. Tenta o que Dirlei disse.
Achei em: http://www.fontesbrasil.com/pdicas6.htm
Aldriano.
Para criar um atalho para um programa, primeiramente coloque essas units na
seção implementation de seu form:
uses ShlObj, ActiveX, ComObj, Registry;
Por último, crie uma procedure que faça o trabalho:
procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName,
ShortcutFolder : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(Parameters);
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg := TRegIniFile.Create
('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString('Shell Folders','Start Menu','') + '\' +
ShortcutFolder;
CreateDir(Directory);
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
To: delphi-br@yahoogrupos.com.br
From: dir...@gmail.com
Date: Fri, 22 Jan 2010 20:58:24 -0200
Subject: Re: [delphi-br] Como alterar propriedades de um atalho???
Provavelmente existe API para isso, mas se você nao conseguir descobrir,
uma
alternativa é criar um novo atalho e sobrepor o que já existe.
Dirlei.
[As partes desta mensagem que não continham texto foram removidas]
_
Agora é fácil compartilhar fotos no Messenger: solte todas na janelinha. Veja
como!
http://www.windowslive.com.br/public/tip.aspx/view/77?product=2ocid=CRM-WindowsLive:dicaCompartilhamentoFotos:Tagline:WLCRM:On:WL:pt-BR:Messenger
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
