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

0/5 (6 avis)

Snippet vu 21 583 fois - Téléchargée 32 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
karaja89
Messages postés
1
Date d'inscription
mardi 27 février 2007
Statut
Membre
Dernière intervention
1 mai 2009
1 mai 2009 à 13:16
Merci beaucoup pour ton code.

Il fonctionne bien ^^.
steneron
Messages postés
1
Date d'inscription
vendredi 7 janvier 2005
Statut
Membre
Dernière intervention
15 novembre 2005
15 nov. 2005 à 06:50
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.
juli1m
Messages postés
14
Date d'inscription
vendredi 6 février 2004
Statut
Membre
Dernière intervention
14 février 2005
1 juin 2004 à 16:38
ç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
cs_Delirium
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
2 mai 2004 à 21:35
(oublié de précisé que c'est sur une .dll)
cs_Delirium
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
30 avril 2004 à 18:03
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)