Fórum Adicionar Item nos Favoritos #331568

Eu mesmo descobri:

VRegistro := TRegIniFile.Create(´Software\MicroSoft\Windows\CurrentVersion\Explorer´);
VPath :=VRegistro.ReadString(´Shell Folders´,´Favorites´,´´);
CriaAtalho(´http://www.receita.fazenda.gov.br/Loja´+ ´´,´´,´´,´Receita Federal´, VPath);


procedure CriaAtalho (VNome_Caminho_Exe, VParametros, VIniciarEm, VNomeAtalho, VOndeGravaAtalho : String);
Var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(PAnsiChar(VParametros));
SetPath(PChar(VNome_Caminho_Exe));
SetWorkingDirectory(PChar(VIniciarEm));
end;
WFileName := VOndeGravaAtalho + ´\´ + VNomeAtalho + ´.lnk´;
MyPFile.Save (PWChar (WFileName), False);
end;