السلام عليكم
انا اريد ان انشئ ملف dll في مجلد الويندوز في ملف النظام نفسه \windows\system32
عملية الإنشاء سهلة ولكن هناك مشكلة
انا لازم طبعا اضع في الكود عنوان إنشاء الملف
وهنا المشكلة انا عاوزه ينزل في مجلد النظام بتاع الويندوز وانا لا اعلم النظام مثبت على انهى دريف
هل اكتب العنون هكذا
C:\windows\system32
ولا
d:\windows\system32
ولا
..............................
.........................
فانا محتاج كود اكته حتى يتم إنشاء الملف في مجلد النظام مهما كان موجود على اي دريف
ياريت
حد
يجاوب
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
السلام عليكم
أخى الكريم
هذا الكود يمكنك عن طريقه تحديد مسار مجلد الوندوز
Dim winPath As String
winPath = Environ$("windir")وطبعا سهل بعد كده انك تحدد مسار System32
Dim winPath As String
winPath = Environ$("windir")
winPath = winPath & "\system32"Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
ايو كذا ... :rolleyes: هي دي الاعضاء اللمتزمه والتي اسئلتها واضحه ... تفضل ياعم وهذا حل
هذه الشفرة بتضعها في التعريف العام
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _ "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias _ "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _ ByVal lpBuffer As String, nSize As Long) As Long
وهذه الشفرة بتظهر لك مسار مجلد الويندز ومجلد السيستم 32 فقط قم برسم Text 1 و Text 2 على الفورم واللصق هذه الشفرات
Private Sub Form_Load() Dim W Dim WindowsD As String WindowsD = Space(144) W = GetWindowsDirectory(WindowsD, 144) Text1.Text = WindowsD Dim S Dim SystemD As String SystemD = Space(144) S = GetSystemDirectory(SystemD, 144) Text2.Text = SystemD End Sub
تم تعديل هذه المشاركة بواسطة HnHn في 15 سبتمبر 2006 في 19:26
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةمشكور يا اخ GENIUS-IT
ويا اخ HnHn
على ردودكم السريعة
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
اسلوبك في طرح السؤال هو من يجعل الرد عليه سريعا .... اتمنى من بقية الاعضاء الاقتداء بك
بالتوفيق ان شالله
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةالصراحه انا مش واضاح لي ما مشكلتك بالضبط ؟ فا الامثله واضحة !!!
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…