Newsgroup: it.comp.lang.visual-basic
Titolo: Assegnare i files

Come si fa ad assegnare un'estensione al mio programma?
Naturalmente deve farlo il programma non io!
Grazie Marco

...



---------
Ciao!
Se ho capito bene la domanda, vuoi creare una tua estensione di file e fare
in modo che, con un doppio clic da Gestione (Esplora)
risorse/Desktop/Risorse del computer su tali file, venga automaticamente
aperto il tuo programma.
Dunque, devi inserire alcune chiavi nel Registro di configurazione di
Windows: per accedere ad esso, trovi un modulo sul mio sito Internet (non
inserisco qui tutto il codice, perché sarebbe troppo lungo; per scaricarlo,
fai clic su 
http://www.armaditaggia.com/marco/Download/Api/Registro.zip
). Di
seguito, ti riporto le istruzioni che utilizzo per registrare due diversi
tipi di file della mia applicazione Windows backup; sono anche incluse le
istruzioni per definire l'icona da associare al tipo di file:
    Dim hKey As Long
    'Registra il tipo di file "Lista file di Windows backup" (WBF).
    If RegCreateKey(HKEY_CLASSES_ROOT, ".wbf", "", hKey) = True Then
        RegSetStringValue hKey, "", "WBFFile"
        RegCloseKey hKey
        If RegCreateKey(HKEY_CLASSES_ROOT, "WBFfile", "", hKey) = True Then
            RegSetStringValue hKey, "", "Lista file di Windows backup"
            RegCloseKey hKey
            If RegCreateKey(HKEY_CLASSES_ROOT, "WBFfile\Shell\Open\Command",
"", hKey) = True Then
                RegSetStringValue hKey, "", Chr$(34) & App.Path &
"\Winbckup.exe" & Chr$(34) & " " & "%1"
                RegCloseKey hKey
                If RegCreateKey(HKEY_CLASSES_ROOT, "WBFfile\DefaultIcon",
"", hKey) = True Then
                    RegSetStringValue hKey, "", App.Path & "\Winbckup.exe,1"
                    RegCloseKey hKey
                Else
                    GoTo Errore
                End If
            Else
                GoTo Errore
            End If
        Else
            GoTo Errore
        End If
    Else
        GoTo Errore
    End If
    'Registra il tipo di file "Lista file di ripristino di Windows backup"
(WBR).
    If RegCreateKey(HKEY_CLASSES_ROOT, ".wbr", "", hKey) = True Then
        RegSetStringValue hKey, "", "WBRFile"
        RegCloseKey hKey
        If RegCreateKey(HKEY_CLASSES_ROOT, "WBRfile", "", hKey) = True Then
            RegSetStringValue hKey, "", "Lista file di ripristino di Windows
backup"
            RegCloseKey hKey
            If RegCreateKey(HKEY_CLASSES_ROOT, "WBRfile\Shell\Open\Command",
"", hKey) = True Then
                RegSetStringValue hKey, "", Chr$(34) & App.Path &
"\Winbckup.exe" & Chr$(34) & " " & "%1"
                RegCloseKey hKey
                If RegCreateKey(HKEY_CLASSES_ROOT, "WBRfile\DefaultIcon",
"", hKey) = True Then
                    RegSetStringValue hKey, "", App.Path & "\Winbckup.exe,2"
                    RegCloseKey hKey
                Else
                    GoTo Errore
                End If
            Else
                GoTo Errore
            End If
        Else
            GoTo Errore
        End If
    Else
        GoTo Errore
    End If
    MsgBox "Registrazione dei tipi di file completata con successo.
Riavviare Windows backup per rendere effettive le nuove impostazioni.",
vbInformation, "Windows backup"
    Exit Sub
Errore:
    MsgBox "Errore durante la creazione delle chiavi nel registro di
configurazione di Windows.", vbExclamation, "Windows backup"
====
Spero che questo ti possa aiutare. Se non capisci qualcosa, sono sempre a
disposizione.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco