en Este artículo se muestra cómo agregar un enlace en el escritorio para su aplicación.
para Añadir un enlace (lnk) para el directorio de escritorio es bastante simple. Primero nos
se necesita crear un objeto com para ser capaz de crear nuestro .lnk archivo.
a Continuación, tendremos que obtener nuestro directorio de escritorio, que vamos a llegar con
la llamada de API de WIN32 SHGetSpecialFolderLocation() desde el escritorio
directorio de Windows con un directorio especial. He ido obteniendo
especial ubicaciones de carpeta en un tip anterior por lo que este debe ser familiar para
. Vamos a estar usando Delphi CreateComObject función() junto con la
llamadas a la API WIN32 SHGetSpecialFolderLocation() y SHGetPathFromIDList()
con el PItemIDList estructura de registro.
[CODE]
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp tmpObject : IUnknown
& nbsp & nbsp tmpSLink : IShellLink
& nbsp & nbsp tmpPFile : IPersistFile
& nbsp & nbsp PIDL : PItemIDList
& nbsp & nbsp StartupDirectory : array[0..MAX_PATH] of Char
& nbsp & nbsp StartupFilename : String
& nbsp & nbsp LinkFilename : WideString
begin
& nbsp & nbsp StartupFilename := 'c:/windows/notepad.exe'
& nbsp & nbsp tmpObject := CreateComObject(CLSID_ShellLink)
& nbsp & nbsp tmpSLink := tmpObject como IShellLink
& nbsp & nbsp tmpPFile := tmpObject como IPersistFile
{ tmpSLink.SetArguments('AGREGAR PARÁMETROS de LÍNEA de COMANDOS AQUÍ') }
& nbsp & nbsp tmpSLink.SetPath(pChar(StartupFilename))
& nbsp & nbsp tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)))
& nbsp & nbsp SHGetSpecialFolderLocation(0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp CSIDL_DESKTOPDIRECTORY,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp PIDL)
& nbsp & nbsp SHGetPathFromIDList(PIDL,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp StartupDirectory)
& nbsp & nbsp LinkFilename := StartupDirectory '/MyNotepad.lnk'
& nbsp & nbsp tmpPFile.Guardar(pWChar(LinkFilename),FALSE)
fin
Icono en el escritorio
Icono en el escritorio : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se muestra como agregar un enlace en el escritorio para su aplicacion.
para Añadir un enlace (lnk) para el directorio de escritorio es bastante simple. Primero nos
se necesita crear un objeto com para ser capaz de crear nuestro .lnk archivo.
a Continuacion, tendremos que obtener nuestro directorio de escritorio, que vamos a llegar con
la llamada de API de WIN32 SHGetSpecialFolderLocation() desde el escritorio
directorio de Windows con un directorio especial. He ido obteniendo
especial ubicaciones de carpeta en un tip anterior por lo que este debe ser familiar para
. Vamos a estar usando Delphi CreateComObject funcion() junto con la
llamadas a la API WIN32 SHGetSpecialFolderLocation() y SHGetPathFromIDList()
con el PItemIDList estructura de registro.
[CODE]
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp tmpObject : IUnknown
& nbsp & nbsp tmpSLink : IShellLink
& nbsp & nbsp tmpPFile : IPersistFile
& nbsp & nbsp PIDL : PItemIDList
& nbsp & nbsp StartupDirectory : array[0..MAX_PATH] of Char
& nbsp & nbsp StartupFilename : String
& nbsp & nbsp LinkFilename : WideString
begin
& nbsp & nbsp StartupFilename := 'c:/windows/notepad.exe'
& nbsp & nbsp tmpObject := CreateComObject(CLSID_ShellLink)
& nbsp & nbsp tmpSLink := tmpObject como IShellLink
& nbsp & nbsp tmpPFile := tmpObject como IPersistFile
{ tmpSLink.SetArguments('AGREGAR PARAMETROS de LINEA de COMANDOS AQUI') }
& nbsp & nbsp tmpSLink.SetPath(pChar(StartupFilename))
& nbsp & nbsp tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)))
& nbsp & nbsp SHGetSpecialFolderLocation(0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp CSIDL_DESKTOPDIRECTORY,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp PIDL)
& nbsp & nbsp SHGetPathFromIDList(PIDL,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp StartupDirectory)
& nbsp & nbsp LinkFilename := StartupDirectory '/MyNotepad.lnk'
& nbsp & nbsp tmpPFile.Guardar(pWChar(LinkFilename),FALSE)
fin
