recuperer le nom d'utilisateur.

Bonjour

Function Tform1.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;

procedure TForm1.Button1Click(Sender: TObject);
Var user : string;
begin
   User:=Username;
   Showmessage (user);
end;

Voila j'espepere que c'est ca que tu cherches

Gil