الكود:

Private Declare Function CopyFile Lib "kernel32.dll" Alias _
 "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName _
 As String, ByVal bFailIfExists As Long) _
 As Long
'------------------------------------------------------------------------
Private Sub Form_Load()
    Dim copy
copy = CopyFile(App.Path & "\comdlg32.ocx", "C:\Windows\System32\comdlg32.ocx", 1)
Shell "cmd /c regsvr32/s comdlg32.ocx",  vbHide
End Sub


(اتمنا الدعاء لى بالشفاء  ) 

torky1985 كتب:

ياريت اعرف رائيك حتى لو كانت الفكره مش جديده احب انى استفاد منكم .........
(اتمنا الدعاء لى بالشفاء  ) 

ذوكا كتب:
الف لا باس عليك وربنا يعافيك من كل شىء يأتيك وحمد الله على سلامتك اخى الكريم ....ان شاء الله تعالى تكون بعيد عن الاحداث الحالية بمصر

NEXT كتب:
على فكرة طريقة جديدة اول مرة اعرفها صراحة ...شكر ليك

torky1985 كتب:اشكرك وانا والله بحبك فى الله يا متاع لانك اول من ساعدنى واسعدنى مرورك وانتظروا منى فكره اجدد فى نفس الموضوع  

ahmedismayl كتب:الرابط للبرنامج لا يعمل الرجاء الاهتمام