كيف يمكن معرفة مكان تنصيب الويندوز على الهارد ؟

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

تفضل هذا الكود الذي سيقوم بالبحث عن مجلد النظام في اي مكان من جهاز الكمبيوتر ( سواء على C او D او E او اي قسم موجود به المجلد System32 ) ثم يقوم بزرع الملف VX1.dll بداخلة

عند حدث التحميل للنموذج ضع هذا الكود

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)

Open sSave & "\VX1.dll" For Binary Access Write As #1
   Close #1
End Sub

الآن اذهب الى مجلد النظام وتأكد هل تم زرع الملف VX1.dll به أم لا واخبرنا بالنتيجة

بالتوفيق

بسم الله الرحمن الرحيم

و عليكم سلام الله ورحمتة وبركاتة .. أستاذة زهرة

تم تجربت الكود و هو يعمل بكفاءة بارك الله لكى

لكِ منا أسمى آيات الإحترام

فى رعاية الله