Discussion :

[yves.dhenain]

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

[Invité]

Bonjour,

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

Code :

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

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

[yves.dhenain]

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.

[Invité]

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 :

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

  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]

[yann.m]

les variables d'environnement sont aussi accessibles comme suit :

Code :

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

1
2
3
4
5
6
 
...
var nom_utilisateur : String;
...
nom_utilisateur := Application.EnvironmentVariable['USER'];
...