problème de récupération

1 réponse

pascal

14/06/2004 à 18:35

je ne parviens plus à recupérer la langue utilisée provenant du module
modInstallation alors qu'elle est bien lue dans le point ini avec ce code :

Global UserLangue As String
Global LangueUse As String

Public Function LangueUtilisation(UserLangue As String) As String

'Lecture de la donnée Langue :
Dim Langue_Utilisation As String
Dim lang As String * 100

UserLangue = GetPrivateProfileString("Langue_Utilisation", "Langue", "Un
nom", lang, 100, App.Path + "\Parametrages\Toxeffects.ini")

LangueUse = Mid(lang, 1, UserLangue)

End Function

Sauriez-vous pourquoi ?

1 réponse

bmlogiciels2

18/06/2004 à 00:03

Il semble que la fonction GetPrivateProfileString ne fasse plus partie du
SDK de Windows depuis la version 95 ....
Ces données sont maintenant stockés dans la base de registre.
Exemple :
HKEY_LOCAL_MACHINESoftwareMicrosoftWindows
NTCurrentVersionIniFileMappingmyfile.ini

Il reste la solution d'ouvrir le fichier à la mano :
open #1 ...

MB

"pascal" a écrit dans le message de news:

je ne parviens plus à recupérer la langue utilisée provenant du module
modInstallation alors qu'elle est bien lue dans le point ini avec ce code

Global UserLangue As String
Global LangueUse As String

Public Function LangueUtilisation(UserLangue As String) As String

'Lecture de la donnée Langue :
Dim Langue_Utilisation As String
Dim lang As String * 100

UserLangue = GetPrivateProfileString("Langue_Utilisation", "Langue",

"Un

nom", lang, 100, App.Path + "ParametragesToxeffects.ini")

LangueUse = Mid(lang, 1, UserLangue)

End Function

Sauriez-vous pourquoi ?

problème de récupération

1 réponse

Veuillez sélectionner un problème