Setup1.vbp

[bmarzouk]

Hello,

I have made an application using Visual Basic 5.0, I want to distribute
my application using Setup wizard, but setup wizard by default doesn't provide
option to make program group for the application.

How can I alter the "Setup1.vbp" to make program group for my VB application and
make shortcut for the application on Desktop.

Thank you for help,
Belal Marzouk

[da_silvy]

The code for shortcut on desktop:
Using the OSfCreateShellLink API

'In a module

Option Explicit
Option Base 1
Public Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" _
         (ByVal lpstrFolderName As String, _
         ByVal lpstrLinkName As String, _
         ByVal lpstrLinkPath As String, _
         ByVal lpstrLinkArguments As String, _
         ByVal fPrivate As Long, _
         ByVal sParent As String) As Long

Public Const gstrQUOTE$ = """"
Public Sub CreateShellLink(ByVal strLinkPath As String, _
         ByVal strGroupName As String, _
         ByVal strLinkArguments As String, _
         ByVal strLinkName As String, _
         ByVal fPrivate As Boolean, _
         sParent As String, _
         Optional ByVal fLog As Boolean = True)
Dim fSuccess As Boolean
Dim intMsgRet As Integer
Dim lREt       As Boolean
   strLinkName = strUnQuoteString(strLinkName)
   strLinkPath = strUnQuoteString(strLinkPath)
   
   If StrPtr(strLinkArguments) = 0 Then strLinkArguments = ""
   
   lREt = OSfCreateShellLink(strGroupName, strLinkName, strLinkPath, strLinkArguments, _
         fPrivate, sParent)    'the path should never be enclosed in double quotes

End Sub


Public Function strUnQuoteString(ByVal strQuotedString As String)
'
' This routine tests to see if strQuotedString is wrapped in quotation
' marks, and, if so, remove them.
'
    strQuotedString = Trim$(strQuotedString)

    If Mid$(strQuotedString, 1, 1) = gstrQUOTE Then
        If Right$(strQuotedString, 1) = gstrQUOTE Then
            '
            ' It's quoted.  Get rid of the quotes.
            '
            strQuotedString = Mid$(strQuotedString, 2, Len(strQuotedString) - 2)
        End If
    End If
    strUnQuoteString = strQuotedString
End Function

'On a form
On Error GoTo EH
   CreateShellLink "c:\hello.exe", "..\..\Desktop", , "Hello", True, "$(Programs)"

   'CreateShellLink strProgramPath, strGroup, strProgramArgs, strProgramIconTitle, True, sParent
   
   Exit Sub
EH:
   MsgBox Err.Description
   Exit Sub

This example would create a shortcut to "C:\hello.exe", on the Desktop, with a caption of "Hello"



This thread might help you

How To Make My Project Run While Every Time Windows Start ?

[Megatron]

See this link.