Como creo un aaceso directo desde C++ Builder 6

[DSK25]

Buenas tardes, quiero saber como puedo mediante codigo crear un acceso directo tanto en el escritorio como en el menu inicio en la barra de programas. Gracias.

[Ñuño Martínez]

Esto es una pregunta típica para buscar en MSDN.

[ecfisa]

Hola DSK25.

Para crear los accesos directos podes hacer:

#include<shlobj.h>
#include<comobj.hpp>

void CreateShortcut(char *ExeFileName, char *LnkFileName)
{
IUnknown *UInterface;
IShellLink *ISlink;
IPersistFile *IPfile;

  OleCheck(CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_ALL,
    IID_IUnknown, (void**) &UInterface));
  __try {
    OleCheck(UInterface->QueryInterface(IID_IShellLink,(void**) &ISlink));
    __try {
      ISlink->SetPath(ExeFileName);
      OleCheck(UInterface->QueryInterface(IID_IPersistFile,(void**) &IPfile));
      __try {
        IPfile->Save((WideString)LnkFileName, False);
      }
      __finally {
        IPfile->Release();
      }
    }
    __finally {
      ISlink->Release();
    }
  }
  __finally {
    UInterface->Release();
  }
}

Ejemplo de llamada:

void __fastcall TForm1::Button1Click(TObject *Sender)
}
char PathToShortcut[260];
char *ExeFileName = "C:\\MiPrograma.exe"; // ruta al programa
char *LnkFileName = "MiPrograma.lnk";     // nombre del a. directo

  /* componer ruta a escritorio */
  wsprintf(PathToShortcut,"%s%s%s", getenv("USERPROFILE"),
    "\\Desktop\\", LnkFileName);

  /* Crear acceso directo */
  CreateShortcut(ExeFileName, PathToShortcut);

  /* componer ruta a Menu de inicio */
  ZeroMemory(PathToShortcut, sizeof(PathToShortcut));
  wsprintf(PathToShortcut,"%s%s%s", getenv("APPDATA"),
    "\\Microsoft\\Windows\\Start Menu\\Programs\\", LnkFileName);

 /* Crear acceso directo */
  CreateShortcut(ExeFileName, PathToShortcut);
}

Para evitar el error "Multiple declaration for ..." , hace lo siguiente:
Project -> Options -> Directories/Conditionals -> Conditional defines, click sobre el boton con puntos suspensivos (...), escribí NO_WIN32_LEAN_AND_MEAN en el cuadro de edición y hace click sobre el botón Add.

Saludos.

[DSK25]

Gracias ecfisa, me funciono perfectamente.