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
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
A voir également:
- Delphi getusername
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Test nom de domaine - Forum PHP
- Récupérer nom onglet excel - vba - Forum Visual Basic
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
2 réponses
Gildeplomb
Messages postés
101
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
1 novembre 2023
3 sept. 2005 à 11:31
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
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
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
3 sept. 2005 à 12:16
Bonjour gildeplomb
Je cherchait aussis cette fonction
Merci ça marche impec
@+
Je cherchait aussis cette fonction
Merci ça marche impec
@+
