Creacion de Accesos directos con otros Iconos

[tango01]

a qui esta el codigo ....

procedure CreaLnk( Exe,Argumentos,DirTrabajo,NombreLnk,DirDestino:string);
  var
    Objeto: IUnknown;
    UnSlink: IShellLink;
    FicheroP: IPersistFile;
    WFichero: WideString;
  begin
    Objeto := CreateComObject(CLSID_ShellLink);
    UnSlink := Objeto as IShellLink;
    FicheroP := Objeto as IPersistFile;
    with UnSlink do
      begin
        SetArguments( PChar(Argumentos) );
        SetPath( PChar(Exe) );
        SetWorkingDirectory( PChar(DirTrabajo) );
      end;
    WFichero := IncludeTrailingBackslash(DirDestino) + NombreLnk;
    FicheroP.Save(PWChar(WFichero),False);
  end;