اريد كود مختلف لتشغيل البرنامج عند تشغيل الجهاز

السلام عليكم

عذراً منك أخي الكريم

و لكنني لا أرى أي تعقيد في الأكواد المستخدمة في وضع البرنامج في Run مثلاً

تابع يقوم باستقبال المفتاح و قيمته

و استدعاء هذا التابع

هل هذا معقد؟؟؟؟؟؟

عليك أن تبتعد عن الملل من البرمجة، اعمل بجد و وفقك الله

اقتباس

الاولى مهمة وهي هل كل مسارات قائمة Start على كل الأجهزة متشابهة وهل توجد دالة من دوال API من الممكن ان نحصل بها على مسار القائمة Start مثل دالة الحصول على قرص الويندوز

في المرفقات مثال للحصول على المسارات

Desktop

Start Menu

Start Up

Programs

Cache

My_Folders_Paths.rar

اقتباس

الثانية ليست ضرورية جدا ولكن هل من الممكن نسخ اختصار فقط للملف برمجيا

أخي Amir Imam

هذا الكود لعمل الاختصارات لبرنامجك

في بدء التشغيل و البرامج وسطح المكتب

لكن هذا الكود يوجب عليك تحديد مسار سطح المكتب و بدء التشغيل

لكنه يقوم بعملية وضع اختصار

حاول دمجه مع المثال السابق للحصول على ما تريد

ضع في الفورم ثلاثة أزرار اسم كل منهم

LinkPrograms

LinkStartup

LinkDeskTop

وهذا هو كود الفورم

 

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

Private Sub LinkDeskTop_Click()
	' وضع الاختصار في سطح المكتب

	strLinkName = Me.Caption
	strLinkPath = App.Path & "/" & "\Shortcut.exe"		 'اسم الملف التنفيذي
	strLinkArguments = ""
	fPrivate = True
	'مسار سطح المكتب
   ' strGroupName = "..\..\Desktop"
	strGroupName = "..\..\سطح المكتب"

	sParent = "$(Programs)"
	'
	fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)

End Sub

Private Sub LinkPrograms_Click()
	' وضع الاختصار في قائمة البرامج
	strLinkName = "nour"
   strLinkPath = App.Path & "/" & "\Shortcut.exe"
	strLinkArguments = ""
	fPrivate = True
	strGroupName = "$(Programs)"
	sParent = "$(Programs)"
	'
	fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)

End Sub

Private Sub LinkStartup_Click()
	' وضع الاختصار في بدأ التشغيل
	strLinkName = "nour"
	'مسار الملف المطلوب
   strLinkPath = App.Path & "/" & "\Shortcut.exe"
	strLinkArguments = ""
	fPrivate = True
  '  strGroupName = "Startup"
	strGroupName = "بدء التشغيل"
	sParent = "$(Programs)"
	'
	fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)


End Sub

ضع الكود التالي في موديول

Option Explicit
'vb6stkit.dll
Public 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

المثال في المرفقات

Shortcut.rar

راجع : Special Folders

اقتباس

فتساءلت لما لا تكون الطريقة هي مجرد نسخ نسخة من البرنامج في StatrtUp