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 19 887 fois - Téléchargée 30 fois

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

Glorkonline
Messages postés
42
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2005
-
C'est un très bon source !!!
Y'aurait-il moyen de connaître aussi tout les utilisateurs du pc ???
cs_Delirium
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 ?
cs_Delirium
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)
juli1m
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
steneron
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.

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.