Регистрация нвых типов файлов

111 - расширение
222 - название программы

CreateNewKey HKEY_CLASSES_ROOT, ".111"
CreateNewKey HKEY_CLASSES_ROOT, "222\DefaultIcon"
CreateNewKey HKEY_CLASSES_ROOT, "222\shell\open\command"

SetKeyValue HKEY_CLASSES_ROOT, ".111", "", "222", REG_SZ
SetKeyValue HKEY_CLASSES_ROOT, "222", "", "Документ для 222", REG_SZ
SetKeyValue HKEY_CLASSES_ROOT, "222", "BrowserFlags", "8", REG_DWORD
SetKeyValue HKEY_CLASSES_ROOT, "222", "EditFlags", "0", REG_DWORD
SetKeyValue HKEY_CLASSES_ROOT, "222\DefaultIcon", "", ap & ",0", REG_SZ
SetKeyValue HKEY_CLASSES_ROOT, "222\shell\open\command", "", Chr(34) & "C:\222.exe" & Chr(34) & " " & Chr(34) & "%1" & Chr(34), REG_SZ

Для работы с реестром присоедини модуль.