كود عمل اختصار على سطح المكتب وفي قائمة البرامج

mbelal كتب:

يا أخوان

ممكن كود عمل اختصار للبرنامج على سطح المكتب وقائمة البرامج

وشكرا

←

شكرا

وجدت الكود بـ api

'Source: MSDN column 'Ask Dr. GUI'
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (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
Private Sub Form_Load()
    Dim strGroupName As String, strLinkName As String
    Dim strLinkPath As String, strLinkArguments As String
    Dim fPrivate As Boolean, sParent As String
    Dim fSuccess As Boolean
    strLinkName = "Shortcut to Calculator"
    strLinkPath = "c:\Windows\calc.exe"
    strLinkArguments = ""
    fPrivate = True                              ' Add shortcut to desktop.
    strGroupName = "..\..\Desktop"
    sParent = "$(Programs)"
    fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)
    'the path should never be enclosed in double quotes
    If fSuccess Then
        MsgBox "Created desktop shortcut"
    Else
        MsgBox "Unable to create desktop shortcut"
    End If
    ' Add shortcut to Programs menu.
    strGroupName = "$(Programs)"
    sParent = "$(Programs)"
    fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)
    'the path should never be enclosed in double quotes
    If fSuccess Then
        MsgBox "Created shortcut on Programs menu"
    Else
        MsgBox "Unable to create shortcut on Programs menu"
    End If
    ' Add shortcut to Startup folder of Programs menu.
    strGroupName = "Startup"
    sParent = "$(Programs)"
    fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)
    'the path should never be enclosed in double quotes
    If fSuccess Then
        MsgBox "Created shortcut in Startup folder"
    Else
        MsgBox "Unable to create shortcut in Startup folder"
    End If
End Sub

هل بالامكان كتابة كود لحذف هذا الاختصار

ارجوا التوضيح

http://www.windowsdevcenter.com/windows/20...rtcutViewer.zip

شكرا لك اخي يوسف وكل عام وانت بخير

انا غير متمكن من الفيجول بيسك بشكل كبير

ولذلك لم استطع معرفة مهمة هذا المثال بشكل واضح .

ان طلبي هو التعديل على الكود المرفق ليتم حذف الاختصار بدلا من انشاء اختصار

وشكرا جزيلا على ماتقدمت به

في انتظار الرد

رمضان كريم

هل من جديد

تم الاجابة

/index.php?showtopic=170512