كيف اقوم بعمل Shortcut toلايقونه برنامجي برمجيا

أهلا بك أخى و تذكر البحث قبل السؤال

كيف انشئ (اختصار) shortcut لملف معين بواسطة الفيجول بيسك

شكرا يا اخي علي تعبك معي

اريد منك كود اخر

هو كيف يمكن حذفShortcut to لايقونه برنامجي في قائمه start up وكذلك في desktop

وجزاك الله كل الخير

طالما عندك مسار الـ Shortcut أمسحها عادى زى اى ملف.

انا لاحظت حاجه في كود عمل Shortcut في قائمه ابداء

وهو انه يكون لك الخيار في اختار مكان الايقونه وذلك عن طريق

1- وضع الايقونه في في قائمه ابداء في "start\programs"

2-او ضعها في قائمه ابداء في "start\programs\StartUp"

ولا تستطيع تغير StartUp باي اسم اخري

ممكن اعرف كيف يتم تغير اسم StartUpالي اسم برنامجي

انا عارف اني تعبتك معاي......

وجزاك الله كل الخير

لا يوجد فرق بين عمل أختصار بقائمة أبدأ أو فى أى مكان آخر.

بعد أذنك وضح باقى سؤالك.

اقصد انه يقوم بعمل الاختصار في C:\Documents and Settings\home\Start Menu\Programs\Startup

حيث home هو اسم مستخدم الوندوز

ولكن اريد عمل الاختصار في كل المستخدمين اي في All Users

Private Const CSIDL_COMMON_STARTUP As Long = &H18

شكرا اخي الكريم علي تعبك مع

انا عارف بتغير قيمه

strProgramsFolder = GetSpecialFolder(Me.hWnd, long)a

longفي كود السابق يعطي امتدادات مختلفه

وانا جربت وحصلت علي امتدادات مختلفه

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

OSfCreateShellLink strDestination, strLinkName, strFullPath, strComLineArgs, strPrivate, strParent

تشتغل علي امتدادات مختصره

حيث ان strDestination لا بد انا ياخد قيمه Programs\StarUp\.. ومعني هذا الامتدا هوC:\Documents and Settings\home1\Start Menu\Programsاي انه يتم تسجيله في المستخدم الحالي واذا تم تغيره الي all uesrs فان الداله الاختصار لا تعمل اجواء معرفه السبب

وجزاك الله كل الخير

فى وصف الدالة لا يوجد تحديد لطبيعة المسار :

عموما لو منفعش معاها المسار الكامل جرب الـ Short Path اللى بيجى بالدالة :

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function