Как ассоциировать программу с расширением?

[GreenT]

МОжет быть нибуть знает?
Там какие то ключи в реестре вроде. Только вопрос какие и с помощью какого оператора?

[WEB_13]

Можно использовать библиотеку Registry Access Functions, ну или WinAPI.
Я применил такие записи в реестре:

HKEY_CLASSES_ROOT, ".txt", "", "текст"

HKEY_CLASSES_ROOT, "текст", "", "текст"

HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt", "Application", "Notepad.exe"

HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\.txt", "", "тект"

HKEY_USERS, "S-1-5-21-1757981266-813497703-1343024091-1003\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt", "Application", "Notepad.exe"

Подбирал наугад и у меня работает.

[hCORe]

Этот код взят из моей реальной программы (ну не совсем моей, делали командой в 3 человека, но этот код мой; работает на всех машинах )

Код: Выделить всё

Private Sub SetAssociation(REGFile As String)
    Dim CProg As String
   
    On Error Resume Next
   
    If GetSetting("XXX", "Settings", "Assoc_Key",0) = 1 Then Exit Sub

    If Len(CurDir) <= 3 Then
        CProg = CurDir & App.EXEName & ".exe"
    Else
        CProg = CurDir & "\" & App.EXEName & ".exe"
    End If
    For e = 1 To Len(CProg)
        xi = InStr(e, CProg, "\", vbTextCompare)
        If xi <> 0 And xi <> oldx Then
            If InStr(xi - 1, CProg, "\\") = 0 Then
                cc1 = Left(CProg, xi - 1)
                cc2 = Mid(CProg, xi + 1)
                CProg = cc1 & "\\" & cc2
            End If
        End If
        oldx = xi
    Next e
   
    Close #1
    Open REGFile For Output As #1
        Print #1, "REGEDIT4"
        Print #1, ""
        Print #1, "[HKEY_CLASSES_ROOT\txtfile]"
        Print #1, ""
        Print #1, "[HKEY_CLASSES_ROOT\txtfile\shell]"
        Print #1, ""
        Print #1, "[HKEY_CLASSES_ROOT\txtfile\shell\Открыть в XXX]"
        Print #1, ""
        Print #1, "[HKEY_CLASSES_ROOT\txtfile\shell\Открыть в XXX\command]"
        Print #1, "@=" & Chr(34) & CProg & " " & "%1" & Chr(34)
    Close #1
   
'Вызвать добавление в реестр
    Shell "regedit /s " & REGFile
'Удалить файл реестра
    Kill REGFile
'Добавить запись
    SaveSetting "XXX", "Settings", "Assoc_Key", 1
End Sub

REGFile здесь - название файла реестра (ну .reg который) для создания и последующего импорта стандартным системным мелкомягким регедитом