Récupérer le login et les variables d'environnement

Bonjour , je reviens à Lazarus après quelques temps ...

Je voudrais faire un programme assez simple (linux /windows) permettant de configurer automatiquement des stations de travail intégrée dans un domaine (samba + ldap).

Donc en premier lieu, je voudrais savoir comment on peut récupérer le login de l'utilisateur connecté sur la station et pouvoir récupérer éventuellement quelques variables utiles ..

Merci
Yves Dhenain

Bonjour,

Pour le login, j'utilise cela sous Win et Nux (Pas testé sous Mac)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function GetUserLogin():String; var userNameBuffer : array[0..255] of char; sizeBuffer : DWord; begin Result := ''; {$IFDEF WINDOWS} SizeBuffer := 256; getUserName(userNameBuffer, sizeBuffer); Result := string(userNameBuffer); {$ElSE} Result := GetEnvironmentVariable('USERNAME'); {$ENDIF} end;

---

Pour Windows ne pas oublier dans les uses
uses
[...], {$IFDEF WINDOWS} Windows{$ENDIF};

Cordialement. Gilles

Super, merci beaucoup.
Cela fonctionne (je n'ai testé que sous windows pour l'instant).
Mais que j'ai eu du mal a revenir a ce type de programmation après avoir fait uniquement du php depuis pas mal de temps.

Bonjour,

Pour les autres variables d'environnement,

• Pour Windows, il faut regarder les codes Delphi
• Pour Linux, il faut utiliser des units comme unix, baseunix, unixutil(s)... (Voir http://lazarus-ccr.sourceforge.net/docs/ (unix, baseunix... dans RTL)
  
  Exemple pour déterminer le nom de la station
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  function GetComputerLogin(): string; var buffer: array[0..255] of char; size: dword; begin Result := ''; {$IFDEF WINDOWS} size := 256; if GetComputerName(buffer, size) then Result := buffer; {$ELSE} Result := GetHostName; //uses unix {$ENDIF} end;

  ---

avec dans uses [...],
{$IFDEF WINDOWS} Windows {$ElSE} unix {$ENDIF} ;

*{$ELSE} en prenant comme hypothèse que vous ne développez que pour Win et Nux sinon voir http://delphi.wikia.com/wiki/FreePas...and_versioning : test for families of OSes

Cordialement. Gilles

Codes vérifiés sous Lazarus 0.9.29/fpc 2.4.1 [XP & Ubuntu 10.04]

les variables d'environnement sont aussi accessibles comme suit :

Code:

---

1 2 3 4 5 6

... var nom_utilisateur : String; ... nom_utilisateur := Application.EnvironmentVariable['USER']; ...

---