GetSystemDirectory systemdir, 255
strF = NTrim(systemdir)
strF = strF & "\MP3medExt.dll"
SaveSettingString HKEY_CLASSES_ROOT, "
CLSID\{448f4a40-2602-11d1-b4c0-080000051171}\InProcServer32", "", strF
SaveSettingString HKEY_CLASSES_ROOT, "
CLSID\{448f4a40-2602-11d1-b4c0-080000051171}\InProcServer32", "ThreadingModel", "Apartment"
SaveSettingString HKEY_CLASSES_ROOT, ".mp3a", "", "MP3medExt.Action"
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\
Clsid\{448f4a40-2602-11d1-b4c0-080000051171}\InProcServer32", "", strF
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\
Clsid\{448f4a40-2602-11d1-b4c0-080000051171}\InProcServer32", "ThreadingModel", "Apartment"
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\MP3medExt.Action", "", ""
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\MP3medExt.Action\Shell", "", ""
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\MP3medExt.Action\Shell\open", "", ""
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Classes\MP3medExt.Action\Shell\open\command", "", ""
SaveSettingString HKEY_CURRENT_USER, "Software\Classes\MP3medExt.Action\Shell\open\command", "", "notepad ""%1"""
SaveSettingString HKEY_CURRENT_USER, "Software\VB and VBA Program Settings\Emil's MediaPlayer\MP3medExt\Templates", "", "MP3medExt Templates"
strF = NTrim(systemdir)
strF = "RUNDLL32.EXE " & strF & "\MP3medExt.dll,Install"
Shell strF, vbHide