Obtenez de l'utilisateur actuel

Obtenez de l'utilisateur actuel

Obtenez de l'utilisateur actuel : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour obtenir l'actuel nom de l'utilisateur.
fonction UserName : String
var
& nbsp & nbsp Taille : DWord
& nbsp & nbsp Nom : PChar
begin
& nbsp & nbsp Nom := StrAlloc(256)
& nbsp & nbsp Taille := 255
& nbsp & nbsp si GetUsername(Nom,Taille)
& ! & ! & ! & nbsp Resultat := Chaîne de caracteres(Nom)
& nbsp & nbsp else
& ! & ! & ! & nbsp Resultat := '
& nbsp & nbsp StrDispose(Nom)
fin