>Mi pregunta és, como puedo crear un acceso directo en W95, en el escritorio
>a la hora de instalar, y como puedo saber el Nº de volumen de la unidad.
Para crear un acceso directo debemos usar unas funciones que se encuentran
en la librería vb5stkit.dll del Asistente para Instalación de aplicaciones
(stkit432.dll para Vb 4 32 bits) y que se encuentra en el directorio
..VB\setupkit\kitfil32 (en Vb 5).

Declare Function OSfCreateShellGroup Lib "VB5STKIT.DLL" Alias
"fCreateShellFolder" (ByVal lpstrDirName As String) As Long

Declare Function OSfCreateShellLink Lib "VB5STKIT.DLL" Alias
"fCreateShellLink"
                 (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String, ByVal lpstrLinkPath As String, ByVal
lpstrLinkArguments As String) As Long

Declare Function OSfRemoveShellLink Lib "VB5STKIT.DLL" Alias
"fRemoveShellLink"
                 (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String) As Long


OSfCreateShellGroup crea un nuevo grupo fuera de Inicio>Programas si la
carpeta especificada no existe ya.

OSfCreateShellLink crea (o reemplaza) un vínculo en Inicio>Programas o en
cualquiera de sus subcarpetas inmediatas.

OSfRemoveShellLink quita un vínculo de Inicio>Programas o cualquiera de sus
subcarpetas inmediatas.

Ejemplos :

Crearemos un nuevo grupo llamado "Grupo de prueba" en Incio>Programas :

   l = OSfCreateShellGroup("Grupo de prueba")

Añadiremos vínculos a ese grupo :

l = OSfCreateShellLink("Grupo de prueba", "Mi programa 1", "C:\WIN95\prueba
de PP.EXE", "parametros")
l = OSfCreateShellLink("Grupo de prueba", "Mi programa 2", "C:\WIN95\prueba
de PP.EXE", "parametros")

Eliminaremos el segundo vínculo :

l = OSfRemoveShellLink("Grupo de prueba", "Mi programa 1")

Para ver el volumen del disco duro :

En un módulo declarar :

Declare Function GetVolumeInformation& Lib "kernel32" Alias
"GetVolumeInformationA"
      (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String,
ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long,
lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal
lpFileSystemNameBuffer As String,
       ByVal nFileSystemNameSize As Long)

En un formulario :

dim Vol as string*256, FileSystem as string*256, unidad as string
dim longitud as long, NumSerie as long, Flags as long

unidad = "c:\"
Call GetVolumeInformation(unidad, Vol, 256, NumSerie, longitud, Flags,
FileSystem, 256)

debug.print "Etiqueta : " + left$(Vol,instr(vol,chr$(0)))
debug.print "Nº de serie : " & NumSerie
debug.print "Sistema de archivos : " +
left$(FyleSistem,instr(FileSystem,chr$(0)))


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma