هذا الكود يقوم بانشاء اختصارا لبرنامجك
'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 strGroupName = "..\..\Desktop" sParent = "$(Programs)" fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent) End Sub
ارجوا التعديل ليقوم الكود بحذف الاختصار وشكرا