ارجوا من الاخوة المساعدة فى التالى

يا اخوانى محتاج المساعدة منكم

اخي العزيز بعد إطلاعي علي المثال وجد انك قد استخدمت دالة GetWindowsDirectory للحصول علي مسار نظام التشغيل ثم تقوم بوضع اسم مجلد النظام بشكل ثابت بعد مسار نظام التشغيل . اخي الحبيب من المعروف ان انظمة التشغيل تعتمد بشكل كامل علي مجلد النظام System وهو ما يكون باسماء مختلفة من نظام الي اخر ففي Windows98 يكون باسم System اما Windows 2000,Xp يكون باسم System32

لذلك طريقتك السابقة تعمل مع الانظمة الذكورة سابقا فقط وهي Windows2000 , XP لذلك الحل هو استخدام الدالة التالية للحصول علي مسار مجلد نظام التشغيل دون تدخلك .

تحياتي لك واسف للاطالة

Declaration

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Form

Private Function GetSystemDir() As String
Dim SysDir As String
SysDir = Space(128)
GetSystemDirectory SysDir, 128
GetSystemDir = Mid(SysDir, 1, Len(SysDir) - 1)
End Function

السلام عليكم .

اشكرك جدا جدا اخى prof_1982 على المساعدة

تحياتى

السلام عليكم استاذ prof_1982

معذرا على الاطالة رجاء اخى المساعدة

لقد فشلت فى الحل رجاء منك وضع الكود اللازم بالموديل علماً بان المشروع هذا هاحوله تنفيذى ومن خلاله استدعى البرنامج الاصلى وهذا بعد نقل وتسجيل ال ocxs كلها والمشكلة التى تواجهنى هى نقل وتسجيل الكنترولز هذه تحت xp وهذا نجحت اما me ,98 فلا .

تحياتى

السلام عليكم

أخي العزيز hetlar الكود الذي كتبه الأخ prof_1982 شغال و ما فيه اي مشكلة

لدي ملف مرفق قد يفيدك ان شاء الله

Copy Delete File.txt

الحل

Resource File Example.zip

شكراً لك يا أخ عامر

السلام عليكم

اشكركم جدا استاذ محمد واستاذ عامر على الاهتمام والمساعدة

تحياتى