Connaître le nom de l'ordinateur et le nom de l'utilisateur 1.0

Commenter

Contenu du snippet

Tout est dit dans le titre.

Source / Exemple : 


//*************************************************************
//         Fonction Trouvant Le nom de L'ordinateur
//*************************************************************
function ComputerName():string;
var
  MyComputerName : array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  nSize          : DWord;
begin

  nSize := SizeOf(MyComputerName);
  GetComputerName(@MyComputerName, nSize);

  result := MyComputerName;

end;

//*************************************************************
//         Fonction Trouvant Le nom de L'Utilisateur
//*************************************************************
function UserName():string;
const
  cnMaxUserNameLen = 254;
var
  UserName : string;
  nSize    : DWord;
begin
  nSize := cnMaxUserNameLen - 1;
  SetLength(UserName, cnMaxUserNameLen);

  GetUserName(Pchar(UserName), nSize);

  SetLength(UserName, nSize -1);

  result := UserName;
end;

Conclusion :


Toutes Fonctions que je propose a été créé et donc testé par moi-même alors si problème il y a ne pas hésiter à m'écrire. :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Littleroswell)