[Windows] Trouver Dossier utilisateur et nom utilisateur ?

**DreamNooby** · 11/10/2011, 22h28

Bonjour

Sous Windows récent (genre Windows 7)

S'il vous plait, avec Free Pascal (ou Lazarus), Y a t'il un moyen pour connaitre :

1) le dossier où sont stockés les programmes installés [genre Users ou Utilisateurs] ? (apparemment cela change selon les pays :o )

2) le nom du compte de l'utilisateur actuel (celui sous lequel on lance le programme en Free Pascal)

3) La version de Windows

Merci

**DreamNooby** · 12/10/2011, 01h56

Je réponds en partie moi-même au point 3)

Je débute sur la programmation Pascal pour Windows (je viens du DOS) donc... j'ai beaucoup de lacunes, alors je ne comprends pas tout.

Il y a ce source, toutefois il ne présente pas les nouvelles versions de Windows
ftp://ftp-developpez.com/delphi/faq/...versionwin.zip
==> Ca serait sympa si ce source était réactualisé...

* Surtout que je n'ai pas les nouveaux Windows alors ça me limite les possibilités de test pour éventuellement modifier le script... *

C'est toujours utile de connaître la version de Windows surtout que pour les nouveaux Windows les dossiers où sont installés les programmes sont gérés différemment (le nom du path a changé par exemple).

J'ai trouvé ce lien toutefois il est plus Delphi mais il prend en compte Windows Vista par exemple... mais il Manque Windows 7, voire les nouvelles versions de Serveurs :

http://stackoverflow.com/questions/5...indows-version

Concernant le point 2)

J'ai trouvé ce code dans la Section Faq Delphi

Seulement j'obtiens un message d'erreur avec ce qui semble être une Unité GetUserName

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function UserName : string; 
var 
  Utilisateur : Array[0..255] Of Char; 
  Taille      : Cardinal; 
begin 
  Taille := SizeOf(Utilisateur); 
  If GetUserName(@Utilisateur,Taille) then 
     Result := strpas(Utilisateur) 
  else 
    Result :=''; 
end;

Où puis-je trouver l'unité qui manque ?

**Alcatîz** · 12/10/2011, 07h03

Bonjour,

GetUserName est une fonction de l'API standard, donc je pense qu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Uses Windows;

devrait suffire ?

En utilisant les interfaces, la fonction SHGetSpecialFolderLocation permet de retouver toute une série de répertoires.

Pour le numéro de version du système, c'est GetVersionEx (également disponible dans l'API standard).

**DOLPat®** · 12/10/2011, 07h12

Envoyé par DreamNooby

Où puis-je trouver l'unité qui manque ?

Il s'agit d'une fonction API de Windows. Donc il te faut rajouter l'unité Windows dans la clause Uses.

D'autre part, il y a dans la même unité des fonctions qui peuvent t'intéresser comme GetVersion qui renvoie la version du système d'exploitation. regarde cette page.

Pour les répertoire spéciaux comme Program files, il faut te tourner vers la fonction SHGetSpecialFolderPath de l'unité ShlObj. (exemple d'utilisation)

[Edit] Grillé sur le fil et par le responsable en plus.