1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Connaître le nom de l'ordinateur et le nom de l'utilisateur 1.0

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 906 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
1
Date d'inscription
mardi 27 février 2007
Statut
Membre
Dernière intervention
1 mai 2009
Merci beaucoup pour ton code.

Il fonctionne bien ^^.
Signaler
Messages postés
1
Date d'inscription
vendredi 7 janvier 2005
Statut
Membre
Dernière intervention
15 novembre 2005
ce qui serait fort, c'est de déterminer les privilèges utilisateur de tous les profils sur cette ordinateur et d'écrire ca dans un fichier texte.
Signaler
Messages postés
14
Date d'inscription
vendredi 6 février 2004
Statut
Membre
Dernière intervention
14 février 2005
ça serait cool d'avoir la declaration complete de la fonction GetComputerName.

je trouve partout comment l'utiliser, mais je n'arrive pas à voir comment la déclarer.

merci d'avance
Signaler
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
(oublié de précisé que c'est sur une .dll)
Signaler
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
J'ai plusieurs erreur a la compilation:

[Erreur] Project1.dpr(12): Identificateur non déclaré : 'MAX_COMPUTERNAME_LENGTH'
[Erreur] Project1.dpr(13): Identificateur non déclaré : 'DWord'
[Erreur] Project1.dpr(17): Identificateur non déclaré : 'GetComputerName'
[Erreur] Project1.dpr(29): Identificateur non déclaré : 'DWord'
[Erreur] Project1.dpr(34): Identificateur non déclaré : 'GetUserName'
[Erreur] Project1.dpr(42): Identificateur non déclaré : 'hWnd'

Ya t'il qqch a déclarer ou j'ai oublier qqch ?
Afficher les 6 commentaires
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)