Creacion de Accesos directos con otros Iconos

[delphi.com.ar]

El ícono que muestran los ShortCuts pueden ser archivos de íconos, o cualquier PE File (Exe, Dll...) que contenga este ícono como recurso. Lo que puedes hacer es incluír este ícono a los recursos de tu proyecto. Esto puedes hacerlo editando al .res de tu proyecto, o bien agregando uno nuevo que lo contenga con {$R MIRECURSO.RES}, luego cuando crees el acceso directo, tienes que especificar el índice del ícono del exe, que va a ser mostrado, el default es el primero.

Saludos!

[tango01]

gracias por la info ... lo que pasa que estoy usando una funcion para crear los Accesos directos, que tengo la opcion de indicarle el index del icono ...

me podrias dar mas info del tema...

gracias.

[delphi.com.ar]

Mostrame el código de la función, y vemos...

[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;

[delphi.com.ar]

Puedes agregar dentro del with, la línea SetIconLocation(ArchivoIcono, IndiceIcono);

Saludos!

[tango01]

gracias .... voy a probar con eso ....

[tango01]

bueno .. ya casi lo tengo ...

el Acceso Directo tiene una referencia al ArchivoIcono. Yo le puse el IndiceIcono = 0

el tema es que no encuentra el ArchivoIcono . .. cuando voy a las propiedades del Acceso Directo me dice ... no se puede encontrar ArchivoIcono, por ejemplo: "Windows no puede encontrar TESTING"

previamente con el ImageEditor de delphi abri el .res del proyecto (del exe al que apunta el acceso directo) y cree un icono llamado testing
tambien probe ponerle testing.ico ... pero el tema es que no se windows donde busca el archivo del icono ... aparentemente no lo busca en el resource del exe ... tambien probe poner el .ico al lado del exe y nada.

donde busca el acceso directo el icono que defino con la funcion SetIconLocation(ArchivoIcono, IndiceIcono)?????


gracias por vuestra ayuda