Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Créer une liste des types de fichiers disponbiles

Créer une liste des types de fichiers disponbiles

9 réponses
Avatar
papou
Bonjour à toutes et à tous
Je cherche à créer dans une Form une zone de liste qui comporterait
l'ensemble des types de fichiers disponibles (avec leurs extensions).
J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou mal cherché
?).
Quelqu'un pourrait-il me renseigner ?
Merci
Cordialement
Pascal
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Regarde dans l'API Guide du coté des API Registre et essaye de lister
HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:
#
Bonjour à toutes et à tous
Je cherche à créer dans une Form une zone de liste qui comporterait
l'ensemble des types de fichiers disponibles (avec leurs extensions).
J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou mal


cherché
?).
Quelqu'un pourrait-il me renseigner ?
Merci
Cordialement
Pascal




Avatar
papou
Bonjour Nicolas
Merci pour ton aide.
J'ai effectivement trouvé dans l'API Guide les fonctions qui m'intéressent
(RegOpenKey, RegCloseKey et RegEnumValue notamment)
Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis déjà
confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car en effet,
le deuxième paramètre de RegOpenKey me demande une chaîne.
Hors justement c'est cette chaîne que je dois trouver pour ensuite récupérer
ses valeurs.
J'ai essayé *.* et aussi * mais rien n'y fait :-(
Si quelqu'un peut me venir en aide ce serait sympa !
Voilà une partie de mon code (ligne 4 qui me pose problème) :
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As
Long, RetData As Long
Cnt = 0
Const BUFFER_SIZE As Long = 255
If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
sName = Space(BUFFER_SIZE)
sData = Space(BUFFER_SIZE)
Ret = BUFFER_SIZE
RetData = BUFFER_SIZE
While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData,
RetData) <> ERROR_NO_MORE_ITEMS
Cnt = Cnt + 1
Form1.Lst_TypesFic.AddItem Ret
Wend
RegCloseKey (hKey)
End If

Cordialement
Pascal


"ng" a écrit dans le message de
news:
Salut,

Regarde dans l'API Guide du coté des API Registre et essaye de lister
HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:
#
> Bonjour à toutes et à tous
> Je cherche à créer dans une Form une zone de liste qui comporterait
> l'ensemble des types de fichiers disponibles (avec leurs extensions).
> J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou mal
cherché
> ?).
> Quelqu'un pourrait-il me renseigner ?
> Merci
> Cordialement
> Pascal
>
>




Avatar
ng
Salut,

le deuxième paramètre de RegOpenKey me demande une chaîne.
Hors justement c'est cette chaîne que je dois trouver pour ensuite


récupérer
On veut en effet la racine, on passera alors un vbNullString

Je t'ai donc fait un petit exemple, ajoute une listbox sur ta feuille et
colle ce code :

Option Explicit

Const ERROR_NO_MORE_ITEMS = 259&
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CLASSES_ROOT = &H80000000
Const REG_SZ = 1
Const REG_BINARY = 3
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)
As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias
"RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As
String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String,
lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal
lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Sub Form_Load()
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As
Long, RetData As Long
Dim sInfos As String
Const BUFFER_SIZE As Long = 255
Ret = BUFFER_SIZE
If RegOpenKey(HKEY_CLASSES_ROOT, vbNullString, hKey) = 0 Then
sName = Space(BUFFER_SIZE)
'on liste le classes_root lui même
Do While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString,
ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
sName = Left$(sName, Ret)
If sName Like ".*" Then
'c'est une extension
'récupère le nom du prog
sInfos = GetString(HKEY_CLASSES_ROOT, sName, vbNullString)
List1.AddItem sName & vbTab & sInfos
End If
Cnt = Cnt + 1
sName = Space(BUFFER_SIZE)
Ret = BUFFER_SIZE
Loop
RegCloseKey hKey
End If
End Sub

'récupère une string stockée dans la BDR
Function GetString(hKey As Long, strPath As String, strValue As String)
Dim Ret As Long
RegOpenKey hKey, strPath, Ret
GetString = RegQueryStringValue(Ret, strValue)
RegCloseKey Ret
End Function
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As
Long
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, Chr$(0))
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) -
1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
End Function

Je joins le frm dans une réponse à ce message.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Avatar
papou
Merci Nicolas
J'ai une erreur dans la fonction RegQueryStringValue sur cette ligne :
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
Argument ou appel de procédure incorrect
Il plante apparement à chaque fois sur les extensions qui n'ont pas de
valeur dans la colonne Données dans la BDR.
Si tu as une idée ?
Merci en tout cas
Cordialement
Pascal

"ng" a écrit dans le message de
news:%


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:

> Bonjour Nicolas
> Merci pour ton aide.
> J'ai effectivement trouvé dans l'API Guide les fonctions qui


m'intéressent
> (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis déjà
> confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car en


effet,
> le deuxième paramètre de RegOpenKey me demande une chaîne.
> Hors justement c'est cette chaîne que je dois trouver pour ensuite
récupérer
> ses valeurs.
> J'ai essayé *.* et aussi * mais rien n'y fait :-(
> Si quelqu'un peut me venir en aide ce serait sympa !
> Voilà une partie de mon code (ligne 4 qui me pose problème) :
> Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As
> Long, RetData As Long
> Cnt = 0
> Const BUFFER_SIZE As Long = 255
> If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> sName = Space(BUFFER_SIZE)
> sData = Space(BUFFER_SIZE)
> Ret = BUFFER_SIZE
> RetData = BUFFER_SIZE
> While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal
sData,
> RetData) <> ERROR_NO_MORE_ITEMS
> Cnt = Cnt + 1
> Form1.Lst_TypesFic.AddItem Ret
> Wend
> RegCloseKey (hKey)
> End If
>
> Cordialement
> Pascal
>
>
> "ng" a écrit dans le message de
> news:
> > Salut,
> >
> > Regarde dans l'API Guide du coté des API Registre et essaye de lister
> > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> >
> > "papou" <nspm> a écrit dans le message de news:
> > #
> > > Bonjour à toutes et à tous
> > > Je cherche à créer dans une Form une zone de liste qui comporterait
> > > l'ensemble des types de fichiers disponibles (avec leurs


extensions).
> > > J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou mal
> > cherché
> > > ?).
> > > Quelqu'un pourrait-il me renseigner ?
> > > Merci
> > > Cordialement
> > > Pascal
> > >
> > >
> >
> >
>
>





Avatar
ng
ah curieux ! je n'ai pas cette erreur essaye en mettant :

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As
Long
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, Chr$(0))
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf,
lDataBufSize)
If lResult = 0 Then
If InStr(1, strBuf, Chr$(0)) - 1 > 0 Then
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
Chr$(0)) - 1)
Else
RegQueryStringValue = ""
End If
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
End Function

ou encore

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As
Long
On Error GoTo RegQueryStringValue_Err
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, Chr$(0))
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) -
1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
Exit Function
RegQueryStringValue_Err:
RegQueryStringValue = ""
End Function

Sinon est-ce que ce code correspond à ta demande ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:

Merci Nicolas
J'ai une erreur dans la fonction RegQueryStringValue sur cette ligne :
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
Argument ou appel de procédure incorrect
Il plante apparement à chaque fois sur les extensions qui n'ont pas de
valeur dans la colonne Données dans la BDR.
Si tu as une idée ?
Merci en tout cas
Cordialement
Pascal

"ng" a écrit dans le message de
news:%
>
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
>
> "papou" <nspm> a écrit dans le message de news:
>
> > Bonjour Nicolas
> > Merci pour ton aide.
> > J'ai effectivement trouvé dans l'API Guide les fonctions qui
m'intéressent
> > (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> > Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis déjà
> > confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car en
effet,
> > le deuxième paramètre de RegOpenKey me demande une chaîne.
> > Hors justement c'est cette chaîne que je dois trouver pour ensuite
> récupérer
> > ses valeurs.
> > J'ai essayé *.* et aussi * mais rien n'y fait :-(
> > Si quelqu'un peut me venir en aide ce serait sympa !
> > Voilà une partie de mon code (ligne 4 qui me pose problème) :
> > Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret


As
> > Long, RetData As Long
> > Cnt = 0
> > Const BUFFER_SIZE As Long = 255
> > If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> > sName = Space(BUFFER_SIZE)
> > sData = Space(BUFFER_SIZE)
> > Ret = BUFFER_SIZE
> > RetData = BUFFER_SIZE
> > While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal
> sData,
> > RetData) <> ERROR_NO_MORE_ITEMS
> > Cnt = Cnt + 1
> > Form1.Lst_TypesFic.AddItem Ret
> > Wend
> > RegCloseKey (hKey)
> > End If
> >
> > Cordialement
> > Pascal
> >
> >
> > "ng" a écrit dans le message de
> > news:
> > > Salut,
> > >
> > > Regarde dans l'API Guide du coté des API Registre et essaye de


lister
> > > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > >
> > > "papou" <nspm> a écrit dans le message de news:
> > > #
> > > > Bonjour à toutes et à tous
> > > > Je cherche à créer dans une Form une zone de liste qui


comporterait
> > > > l'ensemble des types de fichiers disponibles (avec leurs
extensions).
> > > > J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou


mal
> > > cherché
> > > > ?).
> > > > Quelqu'un pourrait-il me renseigner ?
> > > > Merci
> > > > Cordialement
> > > > Pascal
> > > >
> > > >
> > >
> > >
> >
> >
>
>
>




Avatar
papou
Encore une fois merci Nicolas
La première "correction" fonctionne donc cela me convient bien.
Par contre je pensais idéalement pouvoir afficher la même information que la
fenêtre Windows qui s'ouvre lorsque tu vas dans l'explorateur, Outils,
Option des dossiers puis onglet types de fichier.
En l'occurence cette fenêtre affiche le descriptif des types de fichiers en
français.
Mais ce n'est peut-être tout simplement pas possible, en tout cas cette info
n'apparaît pas dans HKEY_CLASSES_ROOT ?
En tout cas merci beaucoup pour ton aide précieuse jusqu'à maintenant :-)
Cordialement
Pascal

"ng" a écrit dans le message de
news:
ah curieux ! je n'ai pas cette erreur essaye en mettant :

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As
Long
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, Chr$(0))
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf,
lDataBufSize)
If lResult = 0 Then
If InStr(1, strBuf, Chr$(0)) - 1 > 0 Then
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
Chr$(0)) - 1)
Else
RegQueryStringValue = ""
End If
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
End Function

ou encore

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As
Long
On Error GoTo RegQueryStringValue_Err
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
strBuf = String(lDataBufSize, Chr$(0))
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,


Chr$(0)) -
1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
Exit Function
RegQueryStringValue_Err:
RegQueryStringValue = ""
End Function

Sinon est-ce que ce code correspond à ta demande ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:

> Merci Nicolas
> J'ai une erreur dans la fonction RegQueryStringValue sur cette ligne :
> RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
> Argument ou appel de procédure incorrect
> Il plante apparement à chaque fois sur les extensions qui n'ont pas de
> valeur dans la colonne Données dans la BDR.
> Si tu as une idée ?
> Merci en tout cas
> Cordialement
> Pascal
>
> "ng" a écrit dans le message de
> news:%
> >
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> >
> > "papou" <nspm> a écrit dans le message de news:
> >
> > > Bonjour Nicolas
> > > Merci pour ton aide.
> > > J'ai effectivement trouvé dans l'API Guide les fonctions qui
> m'intéressent
> > > (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> > > Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis déjà
> > > confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car en
> effet,
> > > le deuxième paramètre de RegOpenKey me demande une chaîne.
> > > Hors justement c'est cette chaîne que je dois trouver pour ensuite
> > récupérer
> > > ses valeurs.
> > > J'ai essayé *.* et aussi * mais rien n'y fait :-(
> > > Si quelqu'un peut me venir en aide ce serait sympa !
> > > Voilà une partie de mon code (ligne 4 qui me pose problème) :
> > > Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret
As
> > > Long, RetData As Long
> > > Cnt = 0
> > > Const BUFFER_SIZE As Long = 255
> > > If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> > > sName = Space(BUFFER_SIZE)
> > > sData = Space(BUFFER_SIZE)
> > > Ret = BUFFER_SIZE
> > > RetData = BUFFER_SIZE
> > > While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal
> > sData,
> > > RetData) <> ERROR_NO_MORE_ITEMS
> > > Cnt = Cnt + 1
> > > Form1.Lst_TypesFic.AddItem Ret
> > > Wend
> > > RegCloseKey (hKey)
> > > End If
> > >
> > > Cordialement
> > > Pascal
> > >
> > >
> > > "ng" a écrit dans le message de
> > > news:
> > > > Salut,
> > > >
> > > > Regarde dans l'API Guide du coté des API Registre et essaye de
lister
> > > > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.
> > > >
> > > > --
> > > > Nicolas G.
> > > > FAQ VB : http://faq.vb.free.fr
> > > > API Guide : http://www.allapi.net
> > > > Google Groups : http://groups.google.fr/
> > > > MZ-Tools : http://www.mztools.com/
> > > >
> > > >
> > > > "papou" <nspm> a écrit dans le message de news:
> > > > #
> > > > > Bonjour à toutes et à tous
> > > > > Je cherche à créer dans une Form une zone de liste qui
comporterait
> > > > > l'ensemble des types de fichiers disponibles (avec leurs
> extensions).
> > > > > J'ai regardé dans les fonctions API mais je n'ai pas trouvé (ou
mal
> > > > cherché
> > > > > ?).
> > > > > Quelqu'un pourrait-il me renseigner ?
> > > > > Merci
> > > > > Cordialement
> > > > > Pascal
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
> >
>
>




Avatar
papou
Nicolas
Oublie le dernier post, j'ai trouvé en regardant la BDR de plus près et en
remarquant que chaque chaîne trouvée (sInfos) avait une valeur dans
HKEY_CLASSES_ROOT et un descritptif correspondant en français.
J'ai modifié en rajoutant ça :
sInfoFrench = GetString(HKEY_CLASSES_ROOT, sInfos, vbNullString)
Merci encore Nicolas
Cordialement
Pascal

"papou" <nspm> a écrit dans le message de
news:
Encore une fois merci Nicolas
La première "correction" fonctionne donc cela me convient bien.
Par contre je pensais idéalement pouvoir afficher la même information que


la
fenêtre Windows qui s'ouvre lorsque tu vas dans l'explorateur, Outils,
Option des dossiers puis onglet types de fichier.
En l'occurence cette fenêtre affiche le descriptif des types de fichiers


en
français.
Mais ce n'est peut-être tout simplement pas possible, en tout cas cette


info
n'apparaît pas dans HKEY_CLASSES_ROOT ?
En tout cas merci beaucoup pour ton aide précieuse jusqu'à maintenant :-)
Cordialement
Pascal

"ng" a écrit dans le message de
news:
> ah curieux ! je n'ai pas cette erreur essaye en mettant :
>
> Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
> String) As String
> Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize


As
> Long
> lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
> lDataBufSize)
> If lResult = 0 Then
> If lValueType = REG_SZ Then
> strBuf = String(lDataBufSize, Chr$(0))
> lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal


strBuf,
> lDataBufSize)
> If lResult = 0 Then
> If InStr(1, strBuf, Chr$(0)) - 1 > 0 Then
> RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
> Chr$(0)) - 1)
> Else
> RegQueryStringValue = ""
> End If
> End If
> ElseIf lValueType = REG_BINARY Then
> Dim strData As Integer
> lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> lDataBufSize)
> If lResult = 0 Then
> RegQueryStringValue = strData
> End If
> End If
> End If
> End Function
>
> ou encore
>
> Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
> String) As String
> Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize


As
> Long
> On Error GoTo RegQueryStringValue_Err
> lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
> lDataBufSize)
> If lResult = 0 Then
> If lValueType = REG_SZ Then
> strBuf = String(lDataBufSize, Chr$(0))
> lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal


strBuf,
> lDataBufSize)
> If lResult = 0 Then
> RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
Chr$(0)) -
> 1)
> End If
> ElseIf lValueType = REG_BINARY Then
> Dim strData As Integer
> lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> lDataBufSize)
> If lResult = 0 Then
> RegQueryStringValue = strData
> End If
> End If
> End If
> Exit Function
> RegQueryStringValue_Err:
> RegQueryStringValue = ""
> End Function
>
> Sinon est-ce que ce code correspond à ta demande ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
>
> "papou" <nspm> a écrit dans le message de news:
>
> > Merci Nicolas
> > J'ai une erreur dans la fonction RegQueryStringValue sur cette ligne :
> > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
> > Argument ou appel de procédure incorrect
> > Il plante apparement à chaque fois sur les extensions qui n'ont pas de
> > valeur dans la colonne Données dans la BDR.
> > Si tu as une idée ?
> > Merci en tout cas
> > Cordialement
> > Pascal
> >
> > "ng" a écrit dans le message de
> > news:%
> > >
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > >
> > > "papou" <nspm> a écrit dans le message de news:
> > >
> > > > Bonjour Nicolas
> > > > Merci pour ton aide.
> > > > J'ai effectivement trouvé dans l'API Guide les fonctions qui
> > m'intéressent
> > > > (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> > > > Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis


déjà
> > > > confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car


en
> > effet,
> > > > le deuxième paramètre de RegOpenKey me demande une chaîne.
> > > > Hors justement c'est cette chaîne que je dois trouver pour ensuite
> > > récupérer
> > > > ses valeurs.
> > > > J'ai essayé *.* et aussi * mais rien n'y fait :-(
> > > > Si quelqu'un peut me venir en aide ce serait sympa !
> > > > Voilà une partie de mon code (ligne 4 qui me pose problème) :
> > > > Dim hKey As Long, Cnt As Long, sName As String, sData As String,


Ret
> As
> > > > Long, RetData As Long
> > > > Cnt = 0
> > > > Const BUFFER_SIZE As Long = 255
> > > > If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> > > > sName = Space(BUFFER_SIZE)
> > > > sData = Space(BUFFER_SIZE)
> > > > Ret = BUFFER_SIZE
> > > > RetData = BUFFER_SIZE
> > > > While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&,


ByVal
> > > sData,
> > > > RetData) <> ERROR_NO_MORE_ITEMS
> > > > Cnt = Cnt + 1
> > > > Form1.Lst_TypesFic.AddItem Ret
> > > > Wend
> > > > RegCloseKey (hKey)
> > > > End If
> > > >
> > > > Cordialement
> > > > Pascal
> > > >
> > > >
> > > > "ng" a écrit dans le message de
> > > > news:
> > > > > Salut,
> > > > >
> > > > > Regarde dans l'API Guide du coté des API Registre et essaye de
> lister
> > > > > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est organisé.
> > > > >
> > > > > --
> > > > > Nicolas G.
> > > > > FAQ VB : http://faq.vb.free.fr
> > > > > API Guide : http://www.allapi.net
> > > > > Google Groups : http://groups.google.fr/
> > > > > MZ-Tools : http://www.mztools.com/
> > > > >
> > > > >
> > > > > "papou" <nspm> a écrit dans le message de news:
> > > > > #
> > > > > > Bonjour à toutes et à tous
> > > > > > Je cherche à créer dans une Form une zone de liste qui
> comporterait
> > > > > > l'ensemble des types de fichiers disponibles (avec leurs
> > extensions).
> > > > > > J'ai regardé dans les fonctions API mais je n'ai pas trouvé


(ou
> mal
> > > > > cherché
> > > > > > ?).
> > > > > > Quelqu'un pourrait-il me renseigner ?
> > > > > > Merci
> > > > > > Cordialement
> > > > > > Pascal
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> > >
> >
> >
>
>




Avatar
ng
Ok no problemo ! Content de t'avoir aidé ;-)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:

Nicolas
Oublie le dernier post, j'ai trouvé en regardant la BDR de plus près et en
remarquant que chaque chaîne trouvée (sInfos) avait une valeur dans
HKEY_CLASSES_ROOT et un descritptif correspondant en français.
J'ai modifié en rajoutant ça :
sInfoFrench = GetString(HKEY_CLASSES_ROOT, sInfos, vbNullString)
Merci encore Nicolas
Cordialement
Pascal

"papou" <nspm> a écrit dans le message de
news:
> Encore une fois merci Nicolas
> La première "correction" fonctionne donc cela me convient bien.
> Par contre je pensais idéalement pouvoir afficher la même information


que
la
> fenêtre Windows qui s'ouvre lorsque tu vas dans l'explorateur, Outils,
> Option des dossiers puis onglet types de fichier.
> En l'occurence cette fenêtre affiche le descriptif des types de fichiers
en
> français.
> Mais ce n'est peut-être tout simplement pas possible, en tout cas cette
info
> n'apparaît pas dans HKEY_CLASSES_ROOT ?
> En tout cas merci beaucoup pour ton aide précieuse jusqu'à maintenant


:-)
> Cordialement
> Pascal
>
> "ng" a écrit dans le message de
> news:
> > ah curieux ! je n'ai pas cette erreur essaye en mettant :
> >
> > Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
> > String) As String
> > Dim lResult As Long, lValueType As Long, strBuf As String,


lDataBufSize
As
> > Long
> > lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
> > lDataBufSize)
> > If lResult = 0 Then
> > If lValueType = REG_SZ Then
> > strBuf = String(lDataBufSize, Chr$(0))
> > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal
strBuf,
> > lDataBufSize)
> > If lResult = 0 Then
> > If InStr(1, strBuf, Chr$(0)) - 1 > 0 Then
> > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
> > Chr$(0)) - 1)
> > Else
> > RegQueryStringValue = ""
> > End If
> > End If
> > ElseIf lValueType = REG_BINARY Then
> > Dim strData As Integer
> > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> > lDataBufSize)
> > If lResult = 0 Then
> > RegQueryStringValue = strData
> > End If
> > End If
> > End If
> > End Function
> >
> > ou encore
> >
> > Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As
> > String) As String
> > Dim lResult As Long, lValueType As Long, strBuf As String,


lDataBufSize
As
> > Long
> > On Error GoTo RegQueryStringValue_Err
> > lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,
> > lDataBufSize)
> > If lResult = 0 Then
> > If lValueType = REG_SZ Then
> > strBuf = String(lDataBufSize, Chr$(0))
> > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal
strBuf,
> > lDataBufSize)
> > If lResult = 0 Then
> > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
> Chr$(0)) -
> > 1)
> > End If
> > ElseIf lValueType = REG_BINARY Then
> > Dim strData As Integer
> > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> > lDataBufSize)
> > If lResult = 0 Then
> > RegQueryStringValue = strData
> > End If
> > End If
> > End If
> > Exit Function
> > RegQueryStringValue_Err:
> > RegQueryStringValue = ""
> > End Function
> >
> > Sinon est-ce que ce code correspond à ta demande ?
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> >
> > "papou" <nspm> a écrit dans le message de news:
> >
> > > Merci Nicolas
> > > J'ai une erreur dans la fonction RegQueryStringValue sur cette ligne


:
> > > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) -


1)
> > > Argument ou appel de procédure incorrect
> > > Il plante apparement à chaque fois sur les extensions qui n'ont pas


de
> > > valeur dans la colonne Données dans la BDR.
> > > Si tu as une idée ?
> > > Merci en tout cas
> > > Cordialement
> > > Pascal
> > >
> > > "ng" a écrit dans le message de
> > > news:%
> > > >
> > > >
> > > > --
> > > > Nicolas G.
> > > > FAQ VB : http://faq.vb.free.fr
> > > > API Guide : http://www.allapi.net
> > > > Google Groups : http://groups.google.fr/
> > > > MZ-Tools : http://www.mztools.com/
> > > >
> > > >
> > > > "papou" <nspm> a écrit dans le message de news:
> > > >
> > > > > Bonjour Nicolas
> > > > > Merci pour ton aide.
> > > > > J'ai effectivement trouvé dans l'API Guide les fonctions qui
> > > m'intéressent
> > > > > (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> > > > > Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis
déjà
> > > > > confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT, car
en
> > > effet,
> > > > > le deuxième paramètre de RegOpenKey me demande une chaîne.
> > > > > Hors justement c'est cette chaîne que je dois trouver pour


ensuite
> > > > récupérer
> > > > > ses valeurs.
> > > > > J'ai essayé *.* et aussi * mais rien n'y fait :-(
> > > > > Si quelqu'un peut me venir en aide ce serait sympa !
> > > > > Voilà une partie de mon code (ligne 4 qui me pose problème) :
> > > > > Dim hKey As Long, Cnt As Long, sName As String, sData As String,
Ret
> > As
> > > > > Long, RetData As Long
> > > > > Cnt = 0
> > > > > Const BUFFER_SIZE As Long = 255
> > > > > If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> > > > > sName = Space(BUFFER_SIZE)
> > > > > sData = Space(BUFFER_SIZE)
> > > > > Ret = BUFFER_SIZE
> > > > > RetData = BUFFER_SIZE
> > > > > While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&,
ByVal
> > > > sData,
> > > > > RetData) <> ERROR_NO_MORE_ITEMS
> > > > > Cnt = Cnt + 1
> > > > > Form1.Lst_TypesFic.AddItem Ret
> > > > > Wend
> > > > > RegCloseKey (hKey)
> > > > > End If
> > > > >
> > > > > Cordialement
> > > > > Pascal
> > > > >
> > > > >
> > > > > "ng" a écrit dans le message de
> > > > > news:
> > > > > > Salut,
> > > > > >
> > > > > > Regarde dans l'API Guide du coté des API Registre et essaye de
> > lister
> > > > > > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est


organisé.
> > > > > >
> > > > > > --
> > > > > > Nicolas G.
> > > > > > FAQ VB : http://faq.vb.free.fr
> > > > > > API Guide : http://www.allapi.net
> > > > > > Google Groups : http://groups.google.fr/
> > > > > > MZ-Tools : http://www.mztools.com/
> > > > > >
> > > > > >
> > > > > > "papou" <nspm> a écrit dans le message de news:
> > > > > > #
> > > > > > > Bonjour à toutes et à tous
> > > > > > > Je cherche à créer dans une Form une zone de liste qui
> > comporterait
> > > > > > > l'ensemble des types de fichiers disponibles (avec leurs
> > > extensions).
> > > > > > > J'ai regardé dans les fonctions API mais je n'ai pas trouvé
(ou
> > mal
> > > > > > cherché
> > > > > > > ?).
> > > > > > > Quelqu'un pourrait-il me renseigner ?
> > > > > > > Merci
> > > > > > > Cordialement
> > > > > > > Pascal
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
ng
Mais le listage de toutes les descriptions peut être long, je ne sais pas
exactement ce que tu veux faire mais on pourrait imaginer seulement
récupérer ces infos lors du click dans la liste :

Private Sub List1_Click()
If List1.Text <> "" Then
Dim sInfos As String
sInfos = GetString(HKEY_CLASSES_ROOT, List1.Text, vbNullString)
InfosLbl(0).Caption = sInfos
InfosLbl(1).Caption = GetString(HKEY_CLASSES_ROOT, sInfos, vbNullString)
End If
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"ng" a écrit dans le message de news:
#
Ok no problemo ! Content de t'avoir aidé ;-)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"papou" <nspm> a écrit dans le message de news:

> Nicolas
> Oublie le dernier post, j'ai trouvé en regardant la BDR de plus près et


en
> remarquant que chaque chaîne trouvée (sInfos) avait une valeur dans
> HKEY_CLASSES_ROOT et un descritptif correspondant en français.
> J'ai modifié en rajoutant ça :
> sInfoFrench = GetString(HKEY_CLASSES_ROOT, sInfos, vbNullString)
> Merci encore Nicolas
> Cordialement
> Pascal
>
> "papou" <nspm> a écrit dans le message de
> news:
> > Encore une fois merci Nicolas
> > La première "correction" fonctionne donc cela me convient bien.
> > Par contre je pensais idéalement pouvoir afficher la même information
que
> la
> > fenêtre Windows qui s'ouvre lorsque tu vas dans l'explorateur, Outils,
> > Option des dossiers puis onglet types de fichier.
> > En l'occurence cette fenêtre affiche le descriptif des types de


fichiers
> en
> > français.
> > Mais ce n'est peut-être tout simplement pas possible, en tout cas


cette
> info
> > n'apparaît pas dans HKEY_CLASSES_ROOT ?
> > En tout cas merci beaucoup pour ton aide précieuse jusqu'à maintenant
:-)
> > Cordialement
> > Pascal
> >
> > "ng" a écrit dans le message de
> > news:
> > > ah curieux ! je n'ai pas cette erreur essaye en mettant :
> > >
> > > Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName


As
> > > String) As String
> > > Dim lResult As Long, lValueType As Long, strBuf As String,
lDataBufSize
> As
> > > Long
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal


0,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > If lValueType = REG_SZ Then
> > > strBuf = String(lDataBufSize, Chr$(0))
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal
> strBuf,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > If InStr(1, strBuf, Chr$(0)) - 1 > 0 Then
> > > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
> > > Chr$(0)) - 1)
> > > Else
> > > RegQueryStringValue = ""
> > > End If
> > > End If
> > > ElseIf lValueType = REG_BINARY Then
> > > Dim strData As Integer
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > RegQueryStringValue = strData
> > > End If
> > > End If
> > > End If
> > > End Function
> > >
> > > ou encore
> > >
> > > Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName


As
> > > String) As String
> > > Dim lResult As Long, lValueType As Long, strBuf As String,
lDataBufSize
> As
> > > Long
> > > On Error GoTo RegQueryStringValue_Err
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal


0,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > If lValueType = REG_SZ Then
> > > strBuf = String(lDataBufSize, Chr$(0))
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal
> strBuf,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,
> > Chr$(0)) -
> > > 1)
> > > End If
> > > ElseIf lValueType = REG_BINARY Then
> > > Dim strData As Integer
> > > lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,
> > > lDataBufSize)
> > > If lResult = 0 Then
> > > RegQueryStringValue = strData
> > > End If
> > > End If
> > > End If
> > > Exit Function
> > > RegQueryStringValue_Err:
> > > RegQueryStringValue = ""
> > > End Function
> > >
> > > Sinon est-ce que ce code correspond à ta demande ?
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > >
> > > "papou" <nspm> a écrit dans le message de news:
> > >
> > > > Merci Nicolas
> > > > J'ai une erreur dans la fonction RegQueryStringValue sur cette


ligne
:
> > > > RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,


Chr$(0)) -
1)
> > > > Argument ou appel de procédure incorrect
> > > > Il plante apparement à chaque fois sur les extensions qui n'ont


pas
de
> > > > valeur dans la colonne Données dans la BDR.
> > > > Si tu as une idée ?
> > > > Merci en tout cas
> > > > Cordialement
> > > > Pascal
> > > >
> > > > "ng" a écrit dans le message de
> > > > news:%
> > > > >
> > > > >
> > > > > --
> > > > > Nicolas G.
> > > > > FAQ VB : http://faq.vb.free.fr
> > > > > API Guide : http://www.allapi.net
> > > > > Google Groups : http://groups.google.fr/
> > > > > MZ-Tools : http://www.mztools.com/
> > > > >
> > > > >
> > > > > "papou" <nspm> a écrit dans le message de news:
> > > > >
> > > > > > Bonjour Nicolas
> > > > > > Merci pour ton aide.
> > > > > > J'ai effectivement trouvé dans l'API Guide les fonctions qui
> > > > m'intéressent
> > > > > > (RegOpenKey, RegCloseKey et RegEnumValue notamment)
> > > > > > Mais je ne parviens pas à renvoyer ce qui m'intéresse, je suis
> déjà
> > > > > > confronté à un problème lorsque j'ouvre la clé CLASSES_ROOT,


car
> en
> > > > effet,
> > > > > > le deuxième paramètre de RegOpenKey me demande une chaîne.
> > > > > > Hors justement c'est cette chaîne que je dois trouver pour
ensuite
> > > > > récupérer
> > > > > > ses valeurs.
> > > > > > J'ai essayé *.* et aussi * mais rien n'y fait :-(
> > > > > > Si quelqu'un peut me venir en aide ce serait sympa !
> > > > > > Voilà une partie de mon code (ligne 4 qui me pose problème) :
> > > > > > Dim hKey As Long, Cnt As Long, sName As String, sData As


String,
> Ret
> > > As
> > > > > > Long, RetData As Long
> > > > > > Cnt = 0
> > > > > > Const BUFFER_SIZE As Long = 255
> > > > > > If RegOpenKey(HKEY_CLASSES_ROOT, "*.*", hKey) = 0 Then
> > > > > > sName = Space(BUFFER_SIZE)
> > > > > > sData = Space(BUFFER_SIZE)
> > > > > > Ret = BUFFER_SIZE
> > > > > > RetData = BUFFER_SIZE
> > > > > > While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&,
> ByVal
> > > > > sData,
> > > > > > RetData) <> ERROR_NO_MORE_ITEMS
> > > > > > Cnt = Cnt + 1
> > > > > > Form1.Lst_TypesFic.AddItem Ret
> > > > > > Wend
> > > > > > RegCloseKey (hKey)
> > > > > > End If
> > > > > >
> > > > > > Cordialement
> > > > > > Pascal
> > > > > >
> > > > > >
> > > > > > "ng" a écrit dans le message de
> > > > > > news:
> > > > > > > Salut,
> > > > > > >
> > > > > > > Regarde dans l'API Guide du coté des API Registre et essaye


de
> > > lister
> > > > > > > HKEY_CLASSES_ROOT, regarde avec REGEDIT comment c'est
organisé.
> > > > > > >
> > > > > > > --
> > > > > > > Nicolas G.
> > > > > > > FAQ VB : http://faq.vb.free.fr
> > > > > > > API Guide : http://www.allapi.net
> > > > > > > Google Groups : http://groups.google.fr/
> > > > > > > MZ-Tools : http://www.mztools.com/
> > > > > > >
> > > > > > >
> > > > > > > "papou" <nspm> a écrit dans le message de news:
> > > > > > > #
> > > > > > > > Bonjour à toutes et à tous
> > > > > > > > Je cherche à créer dans une Form une zone de liste qui
> > > comporterait
> > > > > > > > l'ensemble des types de fichiers disponibles (avec leurs
> > > > extensions).
> > > > > > > > J'ai regardé dans les fonctions API mais je n'ai pas


trouvé
> (ou
> > > mal
> > > > > > > cherché
> > > > > > > > ?).
> > > > > > > > Quelqu'un pourrait-il me renseigner ?
> > > > > > > > Merci
> > > > > > > > Cordialement
> > > > > > > > Pascal
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>