Estou usando Delphi XE7, queria saber como verificar se minha aplicação já contém um atalho no Desktop, se caso não existir criar um atalho.
Pelo que eu pesquisei, teria que olhar pelo registro do windows, alguém tem alguma ideia de como resolver?
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeVocê pode verificar se algum dos ícones possui o alvo que você está pesquisando. A seguinte função pode ser útil.
uses
Winapi.ShellAPI,
Winapi.ShlObj,
System.Win.ComObj,
System.Win.Registry,
Winapi.ActiveX
function ArquivoPeloLink(const NomeLink: String): String;
var
AObject: IUnknown;
ASLink: IShellLink;
APFile: IPersistFile;
WNomeLink: WideString;
PFD: TWin32FindData;
begin
AObject := CreateComObject(CLSID_ShellLink);
ASLink := AObject as IShellLink;
APFile := AObject as IPersistFile;
WNomeLink := NomeLink;
APFile.Load(PWideChar(WNomeLink), 0);
SetLength(Result, MAX_PATH);
ASLink.GetPath(PChar(Result), MAX_PATH, PFD, 0);
end;
Tirei daqui. Uso:
LinkArquivo := ArquivoPeloLink('C:\Users\Public\Desktop\Atalho.lnk')
%HOMEPATH%
que aponta para o diretório definido para o usuário atual. Basta usar a função citada em conjunto com GetEnvironmentVariable
caso não queira criar um atalho publico.
10/04/2017 às 19:19