Visual Basic > Windows and Controls

Make group en icons under w95

Make group en icons under w95

'in vb4 & w95

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

Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long



' SUB: CreateShellGroup
'
' Creates a new program group off of Start>Programs in the
' Windows 95 shell if the specified folder doesn't already exist.
'
' IN: [strFolderName] - text name of the folder.
'                      This parameter may not contain
'                      backslashes.
'                      ex: "My Application" - this creates
'                        the folder Start>Programs>My Application

'
Public sub CreateShellGroup(ByVal strFolderName As String)

    If strFolderName = "" Then
        exit Sub
    end If

    dim fSuccess As Boolean
    fSuccess = OSfCreateShellGroup(strFolderName)

End Sub


'use as

    dim res&
    dim vLocation$

    vLocation$ = "testing"
    Call CreateShellGroup(vLocation$)
    vLocation$ = "..\..\Start Menu\Programs\" & vLocation$
    res& = fCreateShellLink(vLocation, [title], [path&executable], "")

'where
'	title = name to be mentioned
'	path&executable = full path and executable name of application


Return