Variables système

titimoteph Messages postés 12 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 27 novembre 2002 - 14 nov. 2002 à 11:01
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 15 nov. 2002 à 06:40
Quelqu'un connaît-il une liste de variables qui reprennnent des informations telles que le répertoire "démarrage". C'est pour une application multi plate-forme (95/98/00/NT/XP). Au pire, si vous savez comment détrminer l'OS en cours, je peux me débrouiller !

Merci ! A+

T.

3 réponses

BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
14 nov. 2002 à 12:35
'lut
je t'ai copié l'exemple de l'API guide

Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
GetEnvironmentVar = String(255, 0)
GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1)
GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.AutoRedraw = True
Me.Print GetEnvironmentVar("USERNAME")
Me.Print GetEnvironmentVar("USERDOMAIN")
Me.Print GetEnvironmentVar("PROCESSOR_IDENTIFIER")
Me.Print GetEnvironmentVar("NUMBER_OF_PROCESSORS")
Me.Print GetEnvironmentVar("OS")
End Sub
0
titimoteph Messages postés 12 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 27 novembre 2002
14 nov. 2002 à 12:54
Merci ! Je vais décortiquer ca...
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
15 nov. 2002 à 06:40
Sinon, va voir dans mes sources celle nommé AIDE SUR LES PRINCIPALES API, tu aura une description de 200 api environ, et en français !
Tu trouvera surement ton bonheur.

DARK SIDIOUS
0
Rejoignez-nous