Creacion de Accesos directos con otros Iconos

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