Fórum Criar atalho para area de trabalho #242687

var
  IObject    : IUnknown;
  ISLink     : IShellLink;
  IPFile     : IPersistFile;
  PIDL       : PItemIDList;
  InFolder   : array[0..MAX_PATH] of Char;
  TargetName : string;
  LinkName   : WideString;
begin
  TargetName := ´c:\pasta\arquivo.exe´;

  IObject := CreateComObject(CLSID_ShellLink);
  ISLink  := IObject as IShellLink;
  IPFile  := IObject as IPersistFile;

  ISLink.SetPath (PChar (TargetName));
  ISLink.SetWorkingDirectory (PChar (ExtractFilePath(TargetName)));

  SHGetSpecialFolderLocation (0, CSIDL_DESKTOPDIRECTORY, PIDL);
  SHGetPathFromIDList (PIDL, InFolder);

  LinkName := InFolder + ´\Qualquer nome.lnk´;
  IPFile.Save (PWChar (LinkName), FALSE);
end;