ممكن تشرحوا لي هذا الكود من فضلكم
هذا الكود لصناعة ملف بامتداد خاص بك
م
Private Sub Form_Load()
Dim EXE As String
EXE = App.Path & "\" & App.EXEName & ".exe"
NewFileType EXE, "mp3", "ead the king mp3 player"
If Command <> "" Then
End If
End Sub
Sub NewFileType(ProgramPath As String, ByVal Extension As String, Description As String)
Dim W As Object
Dim E As String
Set W = CreateObject("Wscript.shell")
If Left(Extension, 1) <> "." Then
E = "." & Extension & "\"
Else
E = Extension & "\"
Extension = Mid(Extension, 2)
End If
W.regwrite "HKCR\" & E, Extension & " File"
W.regwrite "HKCR\" & Extension & " File\", Description
W.regwrite "HKCR\" & Extension & " File\DefaultIcon\", ProgramPath
W.regwrite "HKCR\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1"
W.regwrite "HKCR\" & Extension & " File\Shell\", "Open"
End Sub
وجزاءكم الله خيرا