Foros Club Delphi - Creacion de Accesos directos con otros Iconos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Creacion de Accesos directos con otros Iconos (https://www.clubdelphi.com/foros/showthread.php?t=7118)

tango01

04-02-2004 18:45:35

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.

delphi.com.ar

04-02-2004 18:49:53

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

04-02-2004 19:40:01

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

04-02-2004 20:40:20

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

tango01

05-02-2004 14:46:40

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;

delphi.com.ar

05-02-2004 15:05:36

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

Saludos!

tango01

05-02-2004 16:01:55

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

tango01

05-02-2004 17:14:28

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

delphi.com.ar

05-02-2004 17:33:25

Probé tu código "levemente modificado", y funciona:

Código:

procedure TForm1.Button1Click(Sender: TObject);

var

  AComObject: IUnknown;

  APersistFile: IPersistFile;

begin

  AComObject := CreateComObject(CLSID_ShellLink);



  with AComObject as IShellLink do

  begin

    OleCheck(SetArguments(''));

    OleCheck(SetPath('C:\WINDOWS\CALC.EXE'));

    OleCheck(SetWorkingDirectory('C:\WINDOWS'));



    {Para que tome el ícono por Default}

    //OleCheck(SetIconLocation(nil, 0));



    {Para Otro ícono}

    OleCheck(SetIconLocation('C:\WINDOWS\Moricons.dll', 10));

  end;



  AComObject.QueryInterface(IPersistFile, APersistFile);

  APersistFile.Save('C:\ACCESO DIRECTO.LNK', False);

end;

Supongo que si pones SetIconLocation(nil, X)... tomará el ícono X del exe del SetPath!

Saludos!

tango01

05-02-2004 17:55:48

espectacular ... gracias delphi.com.ar

lo solucione con los parametros:

ArchivoIcono = miIcono.ico
IndiceIcono = 0

gracias ...

Descendents

05-02-2004 17:56:05

Una pequeña pregunta.

¿Esta linea que utilidad tiene?

¿Podemos hacer el procedimiento sin esta linea verdad?
OleCheck(SetWorkingDirectory('C:\WINDOWS'));

Un saludos
Muchas Gracias

delphi.com.ar

05-02-2004 18:11:20

Cita:

Empezado por Descendents

¿Esta linea que utilidad tiene?

Esa línea escribe el dato "Iniciar En"... obviamente podemos prescindir de este dato si lo quisiéramos.

Saludos!

JoseQ

13-07-2004 18:08:04

hola, me gustaria saber que unidades son necesarias para poner en marcha este procedimiento, el de crear los accesos directos, porque no me reconoce los tipos de las variables y no encuentro referencia alguna a ellos en la ayuda. Gracias

delphi.com.ar

13-07-2004 18:21:04

Cita:

Empezado por JoseQ

...me gustaria saber que unidades son necesarias para poner en marcha este procedimiento...

Código Delphi [-]uses
  ComObj, ActiveX, ShlObj;

Saludos!

La franja horaria es GMT +2. Ahora son las 21:04:39.