Creacion de Accesos directos con otros Iconos

[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

[delphi.com.ar]

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

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]

espectacular ... gracias delphi.com.ar

lo solucione con los parametros:

ArchivoIcono = miIcono.ico
IndiceIcono = 0


gracias ...

[Descendents]

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]

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]

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]

Empezado por JoseQ

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

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

Saludos!