[dec]

Hola,

Código Delphi [-]
begin
  AccesoDirecto(
    'Bloc de notas',           // Nombre del acceso directo
    'Abre el bloc de notas',   // Descripción (Hint, Tip) del acceso directo
    'C:\',                     // Directorio donde se creará el acceso directo
    'C:\windows\notepad.exe',  // Ruta del archivo a que apuntará el acceso
    ''                         // Argumentos a pasar al archivo (ninguno)
  );
end;

Con lo anterior crearíamos un acceso directo al "Bloc de notas" en la raíz de la unidad "C:\".