FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Creacion de Accesos directos con otros Iconos
hola, tengo una applicion que baja algunos archivos de internet y crea accesos directos en el escritorio ...bue...
el tema es que cuando crea los acceso directos me pone el icono del exe destino y lo que yo quiero es poner otro icono que tengo guardado en un TImageList ... Aguien me puede tirar un punta gracias de antemano.
__________________
El secreto de la libertad está en no tener miedo. |
#2
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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.
__________________
El secreto de la libertad está en no tener miedo. |
#4
|
||||
|
||||
Mostrame el código de la función, y vemos...
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
a qui esta el codigo ....
Código:
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;
__________________
El secreto de la libertad está en no tener miedo. |
#6
|
||||
|
||||
Puedes agregar dentro del with, la línea SetIconLocation(ArchivoIcono, IndiceIcono);
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|