Comment récupérer les chemins Systems de windows?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Comment récupérer les chemins Systems de windows?

Message par Fortix »

Salutation, j'aimerais savoir comment on fait pour récuperer quelques chemins system de Window du style : System32\, dossier system, etc..

est ce qu'il existe une des fonctions comme on trouve dans VBScript(SpécialFolder!!) ??,

merci à tous
minirop
Messages : 321
Inscription : mer. 02/août/2006 21:06

Message par minirop »

soit passer par une variable d'environnement sinon peut être dans le registre.
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Rebonjour FORTIX

Ce code donné par le génial soldat inconnu peux peut etre t'aider.
Il ne doit pas etre de lui, j'en sais rien...... :roll:

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu, d'après le code de je sais plus ...
;
; Explication du programme :
; Récupérer les dossier spéciaux de windows


Procedure.s GetSpecialFolderLocation(lngCSIDL.l)
  Protected lngRet.l, strLocation.s, pidl.l
  strLocation = Space(260)
  lngRet = SHGetSpecialFolderLocation_(0, lngCSIDL, @pidl)
  If lngRet = 0
    SHGetPathFromIDList_(pidl, @strLocation)
    If lngRet = 0
      strLocation = RTrim(strLocation)
      If Right(strLocation, 1) <> "\"
        strLocation = strLocation + "\"
      EndIf
      ProcedureReturn strLocation
    EndIf
    CoTaskMemFree_(pidl)
  EndIf
EndProcedure



;- Programme principal
For n = 0 To 80
  If GetSpecialFolderLocation(n) <> ""
    Debug RSet(Str(n), 2, "0") + "     " + GetSpecialFolderLocation(n)
  EndIf
Next
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

Message par Flype »

c'est exactement çà kcc 8)

sinon, dans certains cas les fonctions pb natives peuvent suffir :

Code : Tout sélectionner

Debug GetEnvironmentVariable("windir")
Debug GetEnvironmentVariable("homepath")

Debug ""
Debug ""
Debug ""
Debug ""

If ExamineEnvironmentVariables()
  While NextEnvironmentVariable()
    Debug EnvironmentVariableName() + " = " + EnvironmentVariableValue()
  Wend
EndIf

Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Bonjour Flype

Mais ou va tu chercher tout ça ???

Longueur code flype = 0.000001%
Efficacité code flype = 2000 %

J'suis dégoutté :lol: :lol:

Encore un code génial a garder dans ma hotte pour noel....
Debug GetEnvironmentVariable("windir")
Debug GetEnvironmentVariable("homepath")
Y en a t'il d'autres que windir et homepath ?
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Kwai chang caine a écrit :Bonjour Flype

Mais ou va tu chercher tout ça ???
peut etre tout simplement dans la doc a "Process" (en dessous de "Printer") :lol:
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

C'est vrai ...... :oops:
J'ai pas tout lu "FREUD"

Mais il faut dire, que pour un amateur comme moi, quand on tombe sur ce genre de rubrique, les yeux nous tombent 8O
Donc on a tendance a zapper à tort :oops:

Et apres on se rend compte que le bon FRED avait prevu plein de chose et que l'on utilise que 70% du language.

Et au fait :

Tu n'a pas repondu à ma question, car ça, j'y ai pas vu en dessous de "printer" :D

Debug GetEnvironmentVariable("windir")
Debug GetEnvironmentVariable("homepath")

Y en a t'il d'autres que windir et homepath ?
minirop
Messages : 321
Inscription : mer. 02/août/2006 21:06

Message par minirop »

Kwai chang caine a écrit :Y en a t'il d'autres que windir et homepath ?
toutes celles de ton PC :
panneau de config > Système > onglet "avancé" > variables d'environnements
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

Message par Flype »

Kwai chang caine a écrit :Mais ou va tu chercher tout ça ???
Ben je sais pas, l'expérience peut être :D mais minirop en avait déjà parlé avant et par ailleurs le code que tu as posté est très utile aussi (plus exhaustif).

Sinon, comme disent les english RTFM* :twisted:



* Read The Fucking Manual
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

@Minirop

Encore un truc que je connaissais pas.
Quand je pense qu'on en est a VISTA et que je connais pas tout de W2000 :oops: voir meme W95 :oops: :oops:

Alors ça sert a quelque chose dans windows tous ces petits onglets ou y'a noir de hieroglyphes incomprehensible quand on clique dessus :lol:

@Flype

Merci pour le compliment, j'hésite toujours avant de mettre un lien ou un code, j'ai toujours peur d'etre a coté de la plaque.
C'est vrai certain repondent pour ne rien dire (Hors mis les compliments) ou pas dans le sujet et j'aime pas trop ça. :?
Ta remarque m'encourage.
Je me demande ce que deviens le soldat, il nous manque, j'espere le relire un jour.

Encore merci de vos explications et de votre patience à vous deux.
minirop
Messages : 321
Inscription : mer. 02/août/2006 21:06

Message par minirop »

Kwai chang caine a écrit :Encore un truc que je connaissais pas.
Quand je pense qu'on en est a VISTA et que je connais pas tout de W2000 :oops: voir meme W95 :oops: :oops:
le seul gros changement je dirais qu'il c'est fait entre win3.1 (dos) et 95 (NT) le reste reste relativement pareil, par exemple, Vista, il change quoi par rapport à XP (à part couter bcp plus cher ?), juste des pseudo effets 3D ainsi qu'une sécurité un peu plus élevé. le fond reste le même
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Je vais tout faire pour ne pas avoir VISTA.
J'en ai marre de cette course aux barette mémoire et GO sur DD

Tu as raison, je crois qu'avec XP Pro on est arrivé a un systeme tres stable et operationnel surtout pour les drivers et le reseau qui posaient pas mal de blemes.

Si en plus, d'apres ce que tu dit ils ont pas fait beaucoup mieux que XP.
Alors .......XP je suis XP je resterais

Jusqu'a que je soit obligé a cause des MAJ.
Et pis ça me laissera le temps de le connaitre mieux grace à vous tous :wink:
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

Je vous remercis beaucoups pour vos réponse grace à vous j'en apprends tous les jours :)
Répondre