Recuperer le nom d'utilisateur.

jlp_alexandre Messages postés 25 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 12 janvier 2006 - 3 sept. 2005 à 10:45
cs_tigrou19 Messages postés 65 Date d'inscription vendredi 15 août 2003 Statut Membre Dernière intervention 5 décembre 2005 - 3 sept. 2005 à 12:16
Je cherche une piste pour connaitre le nom d'utilsateur du PC.
Merci par avance

2 réponses

Gildeplomb Messages postés 102 Date d'inscription samedi 29 décembre 2012 Statut Membre Dernière intervention 24 mars 2021
3 sept. 2005 à 11:31
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
0
cs_tigrou19 Messages postés 65 Date d'inscription vendredi 15 août 2003 Statut Membre Dernière intervention 5 décembre 2005 1
3 sept. 2005 à 12:16
Bonjour gildeplomb



Je cherchait aussis cette fonction

Merci ça marche impec

@+
0